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Module AD 



Module AD performs inter-phase dumping. 

All specified active storage is dumped 
at the end of the phases stated or implied 
in the DUMP option. If the DUMP option 
includes either I, for the Annotated Dic- 
tionary Dump, or E, for the Annotated Text 
Dump, or both, then phase. AD will load 
either phase AH, or phases AI and AJ, or 
all three, to produce the required output. 



Example of an EXEC card using the DUMP 
option: 

//STEP1 EXEC PR0C=PL1LFC, 

PARM.PL1L= , DUMP=(TE,QJ) ■ 

This statement specifies compilation using 
the DUMP option to obtain a printout of the 
text blocks, the annotated text blocks, and 
of storage after the completion of compiler 
phase QJ. 



Module AE 



The DUMP Option 



The DUMP option which is specified in 
the PARM field of the EXEC card indicates 
where dumping of main storage is to take 
place. it may be specified in one of the 
following ways: 

1. DUMP, means a dynamic dump is required 
(the dump routine will be called by a 
running phase) 

2. DUMP==(AREA,x 3 .,x a ,x 3f . . . .x n ) means a 
dump of the storage after the named 
phase. 

AREA is any combination of TDPSCIE: 

T text blocks 

D dictionary blocks 

P phases loaded 

S scratch storage 

C control phase 

I annotated dictionary blocks 

E annotated text blocks 

The general syntax is : 

DUMP (.= ( [AREA], {x| (y,z)}, ...)] 

A single phase name indicates dumping of 
storage after this single phase. A pair of 
phase names indicates a continuous group of 
phases after which dumping of storage is to 
occur. 

The dump will appear on SYSPRINT, 
inserted into the normal compiler output. 

If AREA is omitted the default taken is 
DTSP. If a program check occurs and DUMP 
has been specified then AREA will be given 
the default DTSPC. 

Use of the DUMP option may cause the 
compiler to use about 8K bytes more core 
than the SIZE option specifies. This is 
because SIZE specifies the amount of core 
the compiler can use for normal compilation 
and does not allow for the internal compil- 
er diagnostic dumps. 



Module AE is the 
READ-IN Phase control. 



Module AF 



finalization of the 
(See Fig. 4, Note 1 ) 



Module AF is a control section consist- 
ing of a table containing the compiler 
options which may be used during a compila- 
tion. The table is constructed at system 
generation time. The control section is 
brought into storage by the initialization 
Module AB at compilation tirre. A descrip- 
tion of the use of Module AF is given in 
Appendix G. 



Module AG 



Module AG closes SYSUT3 for output, and 
re-opens it for input. 

The closing and opening operations are 
performed in the following order: 

CLOSE 

alter macro-type in data control block 
(DCB) 

OPEN (INPUT) 

switch routine ZURD to point at SYSUT3 
DCB 



Module AH 



This module produces a dump of the 
dictionary. It prints out the communi- 
cations region in the first block, and the 
offsets tables for each block if the 
extended dictionary option is in use. The 
remainder of each block is printed 
out entry by entry. The BCD is trans- 
lated for those entries containing BCD. At 
the end of the dump, a list of all the 
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dictionary codes used is given, with an 
explanation for each code. 

The module is called by phase AD only if 
an I is specified in the AREA field of the 
DUMP option. 



Module AN 



This module contains the routines for 
dictionary and text-block handling for the 
normal-sized dictionary. 



Modules AI and AJ 



Module JZ 



Modules AI and AJ are called, if E is 
specified in the area field of the dump 
option, to provide an 'easy- to-read' text 
print in which the triples and pseudo-code 
items comprising the text are printed sep- 
arately. This option is available between 
phases I A and OE inclusive. 



Module JZ builds the second half phase 
directory. A build list is constructed 
from the second half list held in Module 
AA; a BLDL is performed on this list. The 
phase directory is then reconstructed in 
Module AA for the second half of the 
compiler. 



48-CHARACTER SET PREPROCESSCB 



Module AK 



Module AK is the closing routine of the 
compiler. Its function is to release core 
used for dictionary, text blocks, scratch 
storage, and completed phases. If batch 
compilation is not specified, module AK 
closes all the files used by the compiler. 
If a batch compilation is specified, a 
check is made to determine whether any 
source programs are still to be compiled. 
Where there are none module AK closes all 
files. where one or more programs remain 
to be compiled, the spill file only is 
closed, the batch delimiter card is scanned 
for syntax errors, and control is returned 
to module AA. 



Module AL 



This module contains the control rou- 
tines for dictionary and text-block han- 
dling for the extended dictionary. 



Module AM 



Module AM marks phases as either wanted 
or not wanted, depending upon the compiler 
invocation options. Phases that are always 
loaded are marked wanted. 

AM is the first compiler phase loaded 
after compiler initialization. It tests 
the relevant bits in CCCODE and marks the 
phases accordingly. 



Phase BX is the 48-character set prepro- 
cessor. It is loaded on programmer option 
and receives, as input, source text in the 
48-character syntax. 

The preprocessor scans the input text 
for occurrences of characters peculiar to 
the U8-character set, and converts these to 
the corresponding 60-character symbols. It 
then puts out the adjusted text onto back- 
ing storage ready for Phase CI, the first 
pass of the Read-In Phase. 

The text is rea3 in record by record. 
It is then scanned for alphabetic charac- 
ters which may be the initial letters of 
operator keywords, for periods, and for 
commas. Items within comments or character 
strings are ignored. 

When a possible initial letter is disco- 
vered, tests are made to determine whether 
or not one of the reserved operator key- 
words has been found. If one has been 
found, it is replaced by its 60-character 
set equivalent. Similarly, appearances of 
two periods are replaced by a colon, and a 
comma-period pair is replaced by a semi- 
colon if the comma-period pair is net 
immediately followed by a numeric 
character. 

Allowance is made for the possibility 
that a concatenation of characters which is 
meaningful in the 48-character set may be 
split between two records. 

Before the text is processed a copy of 
the original input is preserved. The out- 
put from the preprocessor is the trans- 
formed text, record by record, followed by 
the original text. The Read-In Phase proc- 
esses transformed text but prints out the 



26 
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| data description of target in 
r — | RETURN (expression). 

I L _ ._ 
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Note: There is an entry E for each parameter described in D. 
Figure 6. Dictionary Entries for an Internal Entry Point 



Phase ED 



Phase ED contains a set of subroutines, 
for processing certain of the tasking and 
list processing attributes, and tables of 
generic and non-generic built-in functions. 
The phase obtains IK of scratch core, into 
which it moves the routines and tables, 
setting a slot in the communications region 
to point at them. This address is later 
picked up and used by phase EL. 



Phase EG(EF) 



Phase EG has two main functions. The 
first is to set up a hash table, and to 
insert th€> label entries left in the dic- 
tionary by the Read-In Phase into hash 
chains. The second function of the phase 



is to create dictionary entries for PROCE- 
DURE, BEGIN, and ENTRY statements, and to 
construct chains linking entries cf parti- 
cular types. 

For PROCEDURE-BEGIN statements, entry 
type 1 dictionary entries are created (see 
Appendix C.2), and block header chains are 
set up to link these entries sequentially. 
A containing block chain is also set up to 
link each entry with that of its containing 
block. 

Oh the appearance of PROCEDURE state- 
ments, circular PROCEDURE -ENTRY chains are 
initialized to link the entry type 1 dic- 
tionary entries of the PROCEDURE and ENTRY 
statements of the same block. The formal 
parameter list is scanned, and formal par- 
ameter type 1 entries are created and 
inserted into the hash chain. Details of 
the PROCEDURE- ENTRY chains appear in Appen- 
dix C. 2. 
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The attribute list is scanned and an 
options code byte is created in the entry 
type 1 (see Appendix C. 2). A check is then 
made for invalid and inconsistent attri- 
butes. CHARACTER and BIT attributes are 
processed, and second file statements (see 
Appendix D.8) are created if necessary. 
Precision data are converted to binary, and 
'dictionary entries are created for pictures 
(see Appendix C. 7) . 

Statement labels are scanned and their 
entry type 2 dictionary entries are creat- 
ed. The relevant data bytes in the dic- 
tionary are completed by default rules (see 
Appendix C.3) . 

For ENTRY statements, entry type 1 dic- 
tionary entries are created (see Appendix 
C.2), and the circular PROCEDURE-ENTRY 
chain is extended. Formal parameters, 
attributes, and labels are processed in a 
similar manner to those for PROCEDURE 
statements, except that the options code 
byte is not created. 



INITIAL: dictionary entries are created 
for INITIAL attributes. 



INITIAL CALL: 



second file statements are 



created for INITIAL CALL attributes. 

CHARACTER and BIT; fixed length constants 
are converted to binary; a cede byte marker 
is left for * lengths (see Appendix C.8). 
Second file statements (see Appendix D.8) 
are created for adjustable length con- 
stants, and the source text is replaced by 
pointers to the statements. 

DEFINED; second file statements (see 
Appendix D.8) are created and the source 
text is replaced by pointers to the state- 
ments. 

POSITION: the position constant is con- 
verted to binary. 

PICTURE ; a picture table entry (see Appen- 
dix C.7) is created and inserted into the 
picture chain; similar pictures share the 
same picture table. The source text is 
replaced by a pointer to each entry. 



Ph ase EI (EH, EJ) 



Phase EI scans the chain of DECLARE 
statements set up by the Read- In Phase, and 
modifies the statements to assist Phase EK 
as follows: 



Structure Level Numbers; 
verted to binary. 

Factored Attributes : pa 
factored attributes are 
code bytes, so that Pha 
ish them easily. A 
table is set up. It 
corresponding to each fa 
slot contains the addres 
list associated with 
address of the slot f 
level. 



these are con- 



rentheses enclosing 
replaced by special 
se EK can distingu- 
factored attribute 
consists of slots 
ctored level. Each 
s of the attribute 
that level, and the 
or the containing 



USES and SETS; USES and SETS attributes 

are moved into dictionary entries, and 
pointers to the entries replace the source 
text. 

LIKE; BCD entries are created for iden- 
tifiers with the LIKE attribute. 



LABEL: 



if 



The following attributes are processed: 



the LABEL attribute has a list 

of statement label constants attached, a 
single dictionary entry is created. The 
dictionary entry contains the dictionary 
references of the statement label constants 
in the list. 

OFFSET and BASED: Second file statements 
are made and text references are inserted 
in the DECLARE statements for these attri- 
butes. 

AREA: Fixed-length specifications are con- 
verted to binary; second file statements 
are made for expressions; a code byte, 
followed by the length of text reference, 
is inserted in the DECLARE statement text. 



DIMENSION: 



dimension table entries (see 



Appendix C.8) are created in the dictionary 
and the source text is replaced by a 
pointer to the entry. Fixed bounds are 
converted to binary and inserted in the 
table. A second file statement (see Appen- 
dix D.8) is created at the end of the text, 
for adjustable bounds, and a pointer to the 
statement is inserted in the dimension 
table. Identifiers with identical array 
bounds share the same dimension table. 

PRECISION: precision and scale constants 
are converted to binary. 



All other attributes, identifiers, or 
constants are skipped. 



P hase EL (EK, EM) 



Phase EL, consisting of modules EK, EL, 
and EM, scans the chain of DECLARE state- 
ments constructed by the Read-In Phase. 

An area of storage known as the attri- 
bute collection area is reserved. This is 
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used to store information about the iden- 
tifiers, and has entries of a similar 
format to that for dictionary entries. 



Complete dictionary entries are con- 
structed for every identifier found in a 
EECLARE statement. These identifiers can 
te one of the following types: 

1. Data Items (see Appendix C.4) 

2. Structures (in this case, the 'true' 
level number is calculated) (see 
Appendix C. 4) 

3- Label Variables (see Appendix C.4) 

4. Files (see Appendix C.7) 

5. Entry Points (see Appendix C.2) 

6. Parameters (see Appendix C.7) 

7. Event Variables 



1. DEFINED data 

2. Data with the LIKE attribute 

3. Files 

4. Strings with adjustable lengths 

5. Arrays having adjustable bounds 

6. GENERIC identifiers 

7. Structure members 

8. Identifiers with INITIAL CALL 

9. Identifiers with the INITIAL attribute 

After the declaration list has been 
fully scanned and processed, it is erased. 



8. Task Variables. 



Phase EP 



Identifiers appearing as multiple dec- 
larations are rejected and a diagnostic 
message is given. 



The attributes to be associated with 
each identifier are picked up in three 
ways. 



First, the attributes immediately fol- 
lowing the identifier are stored in the 
attribute collection area. 



Secondly, any factored attributes and 
structure level numbers are examined. 
These are found by using the list of 
addresses placed in scratch core storage by 
Phase EI. Each applicable attribute is 
marked in the attribute collection area, 
and any other information, e.g. dimension 
table address, or picture table address, is 
moved into a standard location in the 
attribute collection area. All conflicting 
attributes are rejected and diagnostic mes- 
sages are given. 

Finally, any attributes which are 
required by the identifier, and which have 
not been declared, are obtained from the 
default rules. 

After the dictionary , entry has been 
made, further processing (e.g. linking of 
chains, etc.) must be done in the follow- 
ing cases:: 



Phase EP first conditionally marks later 
phases as 'wanted' or 'not wanted,' accord- 
ing to how certain flags in the dictionary 
are set on or off. This assists in the 
load-ahead technique. 

The entry type 1 chain in the dictionary 
is then scanned. For each PROCEDURE entry 
in the chain, each entry label is examined 
for a completed declaration of the type of 
data the entry point will return when 
invoked as a function. If this has pre- 
viously been given in a DECLARE statement 
nothing further is done, otherwise entry 
type 2 and 3 dictionary entries are con- 
structed from default rules (see Appendix 
C.2). If this default data description 
does not agree with the description derived 
from the PROCEDURE or ENTRY statement, a 
warning message is generated. 

At each PROCEDURE entry, the chain to 
the ENTRY statement entry type 1 is fol- 
lowed. Each statement is treated in a 
similar manner to that for a PROCEDURE 
entry type 1. 

The CALL chain is then scanned and, at 
each point in the chain, the dictionary is 
searched for the identifier being called. 
If the correct one is not found, a dic- 
tionary entry for an EXTERNAL procedure is 
made (see Appendix C.2) , using default 
rules for data description. Before making 
the entry, the identifier is checked for 
agreement with any of the built-in function 
names. If there is agreement a diagnostic 
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message is generated, and a dummy diction- 
ary reference is inserted. 

If an identifier is found, it is exam- 
ined to see if it is an undefined formal 
parameter. If it is, the formal parameter 
is made into an entry point, again using 
default rules for data description. If it 
is not, or if the declaration of the formal 
parameter is complete, the type of entry is 
checked for the legality of the call. A 
diagnostic message is generated if the item 
may not be called. In all cases, the item 
called is marked IRREDUCIBLE if it has not 
previously been declared REDUCIBLE. 



Phase EW (EV) 



Phase EW is an optional phase, loaded 
only if any LIKE attributes appear in the 
source program. 

This phase scans the LIKE chain which 
has been constructed by Phase EK, and 
completes the dictionary entry for any 
structure containing a LIKE reference. 
When a structure in the LIKE chain is 
found, its validity is checked, and dimen- 
sion data and inherited information are 
saved. The dictionary is scanned for the 
reference of the "likened" structure and 
the entry is checked for validity. 

This dictionary entry (see Appendix C.4) 
is copied into the dictionary, with altera- 
tions if there is a difference between the 
original structure and this structure with 
regard to dimensioned data. If both struc- 
tures have dimensions a straight copy is 
made; if the structure with the LIKE attri- 
bute has dimensions and the likened struc- 
ture has not, the dimension information is 
added to the copy; if the structure with 
the LIKE attribute is not dimensioned and 
the likened structure is, then the dimen- 
sion data is deleted from the copy. Inher- 
ited data is added to the copy. If an 
error is found, the structure with the LIKE 
attribute is deleted and a base element 
copy of the master structure is inserted 
instead. Where copies of entries occur 
which refer to dimension tables with varia- 
ble dimensions, the dimension table entry 
is copied, and new second file dictionary 
entries and statements are created. Simi- 
lar entries must be made if the structure 
item has been declared to be an adjustable 
length string, or has been declared with 
the INITIAL attribute. 

Finally, the newly completed structure 
is scanned by the ALIGN routine in phase 
EV, to provide correct explicit/inherited/ 
default alignment attributes for its base 
elements. 



Phase EY 



Phase EY is an optional phase which 
processes all ALLOCATE statements. 

The second file is scanned first and all 
pointers to the dictionary are reversed. 
All ALLOCATE statements using the DECLARE 
chain are then scanned, and the dictionary 
references of allocated items are obtained 
by hashing the respective BCD of each item. 
The attributes given on the ALLOCATE state- 
ment for an item are collected together. 

A copy of the dictionary entry of the 
allocated item is then made (see Appendix 
C.4), and the ALLOCATE statement is set to 
point to it. The dictionary entry is 
completed by including any attributes given 
on the ALLOCATE statement, and copying any 
second file statements from the DECLARE 
chain which are not overriden by the ALLO- 
CATE statement. 

In the case of an ALLOCATE Statement in 
which a based variable is declared, no copy 
of the original dictionary entry is 
required. The BCD is replaced by the 
original dictionary reference. 

All pointer qualified references in the 
text are checked to determine that the 
qualified variable is based. For every 
occurrence of a variable with a different 
pointer a new dictionary entry is made. If 
the variable is a structure the entire 
structure is copied. A PEXP second file 
statement is made for the pointer and the 
■defined* slot in the new dictionary entry 
is set to point to it instead of to the 
declared pointer. 

The BCD of the pointer and the based 
variable in the text are replaced by the 
new dictionary reference followed by pad- 
ding of blanks which will be removed by 
phase FA. 



be the qualified 

If this is so, 

lidity. Only the 

cf the qualified 
ed by the dic- 
e member. It is 
er to tell phase 
ced name follows. 



The based variable can 
name of a structure member 
the name is checked for va 
first part or lowest level 
name in the text is replac 
tionary reference of th 
preceded by a special mark 
FA that a partially repla 



Phase FA 



Phase FA scans the text sequentially. 
If, during the scan, qualified names are 
found with subscripts attached, they are 
reordered so that a single subscript list 
appears after the base element name. The 
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each dimension. It is then added to the 
AUTOMATIC chain for the appropriate block. 
Iterative DO loops are constructed, with 
the temporaries iterating between the upper 
and lower bounds of that particular dimen- 
sion. Base elements are assigned, with the 
temporaries as subscripts, and with scalars 
remaining unchanged. END statements are 
created for the DO loops, and SELL state- 
ments for the temporaries. The statements 
which have been created are nested within 
the original statement. 



Phase HP 



Phase HP scans the source text for 
references to items defined using iSUBs. 
For each reference found, the subscripts 
are computed for the base array correspond- 
ing to the subscripts given for the defined 
array. 

The subscripts of the defined array are 
assigned to temporaries specially created 
for this purpose, which are then used to 
replace the iSUBs in the defining subscript 
list. The base array, with the subscript 
list so formed, replaces the defined array 
in the text. 



Phase HK 



The purpose of Phase HK is to detect 
array or scalar assignments,, possible array 
expressions in I/O lists in GET and PUT 
statements, and nested statements, in par- 
ticular nessted assignment statements. 



The leftmost array in an expression, or 
the leftmost array or scalar in an assign- 
ment is used as a basis for comparison, and 
if similar dimensions or bounds are not 
found in the array references, diagnostic 
messages are issued. Any expression con- 
taining only scalars is left unchanged. 



For unsubscripted arrays which are 
equally spaced in core only one temporary 
is bought. For all other arrays a tempora- 
ry is bought for each dimension, except in 
the case of certain partially subscripted 
arrays where the number may be- minimized. 
Each temporary will be added to the AUTO- 
MATIC chain for the appropriate block. If 
the ON-condition name SUBSCRIPTRANGE is 
enabled for any statement, a temporary will 
be bought for each dimension in all cases. 
Iterative DO loops are constructed: for an 
unsubscripted array expression of dimen- 
sionality N, the temporary will iterate 
between the lower bound of the Nth dimen- 
sion and an evaluated product so that all 
elements of the array are processed; while 
for other arrays the temporaries will iter- 
ate between the lower and upper bound of 
the particular dimension of the array. The 
assignment statement is added to the output 
string with additional subscripts where 
necessary. End statements are created for 
the DO loops, and SELL statements for the 
temporaries. The statements which have 
been created are nested within the original 
statement . 



THE TRANSLATOR LOGICAL PHASE 



The Translator Phase consists of two 
physical phases, the stacker phase and the 
generic phase. The purpose cf the Transla- 
tor is to convert the output from the 
Pretranslator into a series of "triples" 
(see Appendix D.4). A "triple" is in the 
form of an operator followed normally by 
two operands. 



The translation is achie 
double stack, with one par 
and the other" part for 
assigning two weights to 
One weight (the stack we 
the operator while it is in 
the other weight (the c 
applies when the operator 
the input string- 



ved by using a 

t for operators, 

operands, and 

each operator, 
ight) applies to 

the stack, and 
ompare weight) 
is obtained from 



The syntax 
checked. 



of oseudo-variables is also 



When an operator is obtained from the 
input string it is compared with the top 
stack operator. Depending on the result of 
the comparison, one or other of the two 
operators is switched on to determine what 
action is next to be performed. Apart from 
some special cases, this action is usually 
either to continue to fill the stack, or to 
generate a triple. The special cases lead 
to various manipulations of the stack 
items, after which the translation process 
continues. 

For the purposes of translation, the 
input text to the translator is considered 
to consist of operators and operands only. 
This means that I/O options, etc. , are 
regarded as operators. 

After translation, the text string con- 
sists of operands and operators. All 
statements start with an operator to indi- 
cate a statement number or label, followed 
by the statement type, which may be a 
single operator, as in the case of RETURN 
or STOP, or which may be an operator such 
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as a function or subscript marker, followed 
by a list of arguments. This list may also 
include compiler generated statements, 
e.g., DO loops for I/O lists. All I/O 
options are regarded as operators and 
require no markers before them. The end of 
the source text will be marked by a special 
operator, and compiler generated code, 
which may follow this end-of-program mark- 
er, will appear between the marker and the 
special second-end-of-program marker. The 
end of a block of text will be marked by an 
ECB operator. The program is now assumed 
to be syntactically correct. 



Certain phases are marked wanted or not 
wanted at this stage. If the source text 
contains an invocation by CALL or function 
reference. Phases IL and IM are marked 
wanted. If it does not. Phases IL, IM, IN, 
10, IP, IQ, MG, MH, MI, MJ, MK, MM, MN, and 
MO are marked not wanted. Phases MB and MC 
are marked wanted when the source text 
contains pseudo-variables or multiple 
assignments; otherwise, they are marked not 
wanted. The DO loop processing phases (LG 
and LH) are marked in co-operation with the 
dynamic initialization phases (LB and LC). 
If LB and LC are requested, the marking of 
LG and LH is left until that stage of 
compilation; otherwise, LG and LH are 
marked by Phase IA independently. 



Phase I A 



Phase IA rearranges the source text into 
a prefix form, in which parentheses and 
statement delimiters have been removed,, and 
the operations within a statement have been 
so arranged that those with the highest 
priority appear first. 

As operators and operands are encoun- 
tered, they are stored in stacks. Tables 
give the priority of each operator as it 
appears in the input text and in its stack. 

When an operator is found during the 
scan of the source text, its compare weight 
(see Appendix D.U) is tested against the 
stack weight of the top operator in the 
stack. If the compare weight is the lesser 
of the two, then action is taken according 
to the compare operator. This is referred 
to as the compare action. Similarly, if 
the compare weight for the current operator 
found in the scan is greater than or equal 
to the stack weight of the top stack 
operator, action is taken according to the 
top stack operator. This is referred to as 
the stack action. Normally, the compare 
action is to place the compare operator in 
the stack, and to continue the scan, plac- 
ing any subsequent operand in the stack 
until another operator is found. The nor- 
mal stack action is to generate a triple, 
consisting of the top operator in the stack 
and the top two operands, eliminating the 
items from the stack, and inserting a 
special flag as the operand of the triple 
which is now at the top of the stack. The 
source (compare) item is then compared with 
the new top stack item. 

The output text of the stacking phase is 
in the form of a series of triples, i.e. 
statement types with no operands, and oper- 
ators with one or two operands. If the 
result of a triple operation is to be used 
in a later triple, the appropriate result 
is flagged accordingly. 



When ALLOCATE and FREE statements occur, 
phase NG is marked wanted. When LOCATE 
statements occur, phase NJ is marked want- 
ed. 



Phase IG 



Phase IG is an optional phase which is 
loaded to process array and structure argu- 
ments to built-in functions. When aggre- 
gate arguments are given for built-in func- 
tions they are expanded by the structure 
and array assignment phases so that the 
built-in functions appear as base elements, 
subscripted where necessary. 

Phase GP examines these arguments, and 
ascertains whether it is necessary to 
create a dummy. If it is necessary, a 
scalar dummy is created, but the assignment 
of the argument expression is not inserted 
in the text, as this would te an invalid 
aggregate assignment. 

Phase IG examines the text for a BUY 
statement for a dummy for an aggregate 
argument to a built-in function, and then 
inserts an assignment triple in the correct 
place in the text. 



Phase IL 



This phase immediately precedes the main 
generic phase. Its function is to obtain a 
block of scratch storage and place the 
entire built-in function table in that 
area. The starting address cf this table 
is then placed in a register, and control 
is released to the main generic processor. 
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Phase IM 



Phase IM scans the source text for 
procedure invocations by a CALL statement, 
procedure or library invocations by a func- 
tion reference, and assignments to 
"chameleon" dummy arguments (see Phase GP) . 

Any procedure which is generic and is 
invoked by a CALL statement or function 
reference is replaced by the appropriate 
family member. If the invoked procedure is 
non-generic, it is ignored. A generic 
library routine invoked by a function ref- 
erence is also replaced by the appropriate 
family member. 

The arguments passed to library routines 
are checked for number and type, and a 
conversion inserted where necessary and 
possible. 

The type and location of the result of 
all function invocations is placed in the 
text which follows the end of the text 
which invoked the function. The resulting 
type of an expression assigned to a 
"chameleon" dummy is determined and set in 
the dictionary entry Which relates to the 
dummy. 



Phase IT 



Phase IT scans the source text for 
function triples and, in particular, the 
built-in functions for which code will be 
generated in-line. Further tests are made 
to detect the functions which, according to 
the method used to generate in-line code, 
are optimizable. This applies only to the 
SUBSTR, UNSPEC, and INDEX functions. All 
references to 'chameleon' temporary assign- 
ments within the scope of these functions 
are removed subject to certain restrictions 
imposed by the function nesting situation. 



Phase IX 



Phase IX checks that POINTER and AREA 
references are used as specified by the 
language. This phase is loaded only if 
POINTER or AREA references are found, 
declared either explicitly or contextually. 
Error messages are produced if errors are 
found and the statement in error is erased. 

Data type triples in the text are 
scanned and a stack of temporary results is 
created containing the values: 



X'40' for POINTER 

X'02* for AREA 

X'OO* for any other data type 

The maximum permitted number of tempo- 
raries at any one point in a program is 
200. The compilation is terminated if this 
figure is exceeded. 



Phase JD 



Phase JD scans the text for concatena- 
tion and unary prefixed triples with con- 
stant operands. These are evaluated and 
the results are placed in new dictionary 
entries. The references are passed through 
a stack into the corresponding result slots 
in the text. 



THE AGGREGATES LOGICAL PHASE 



The Aggregates Phase consists of three 
physical phases, the preprocessor (phase 
JI), the structure processor (phase JK) and 
the DEFINED chain check (phase JP) . 

The structure processor phase carries 
out the mapping of structures and arrays in 
order to align elements on their correct 
storage boundaries. 

The DEFINED chain check ensures that 
items DEFINED on arrays and structures can 
be mapped consistently. 



Phase JI 



The first function of phase JI is to 
obtain scratch storage in which the text 
skeletons contained in phase JJ are to be 
held. Phase JJ is then loaded, and its 
contents are moved to the scratch storage 
for subsequent use by phases JI and JK. 
Phase JJ is then released and control is 
returned to phase JI. 

The main function of phase JI is to 
expedite data interchange activities. A 
scan 1 of static, automatic, and controlled 
chains is performed. The chains are reor- 
dered so that all data variables appear 
before non-data items. Adjustable PL/I 
structures and arrays are detected. Each 
entry in the COBOL chain is mapped as far 
as possible at compile-time, removed from 
the chain, and placed in the appropriate 
AUTOMATIC chain. 
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Phase JK 



This phase scans the AUTOMATIC, STATIC, 
and CONTROLLED chains for arrays, struc- 
tures (including COBOL structures), adjus- 
table length strings,. DEFINED items, AREA, 
and POINTER arrays and structures, TASK and 
EVENT arrays, and TASK and EVENT arrays in 
structures. 



For the base elements of structures 
without adjustable bounds or string 
lengths, the following calculations are 
made: 

The offset from the start of the major 
structure 



DEFINED items are processed in the fol- 
lowing way: 

Code is generated to set the irultipli- 
ers and virtual origin address of cor- 
respondence defined arrays without 
iSUBs in the dope vector of the DEFINED 
items from the defining fcase dope vec- 
tor. 

Code is generated for overlay DEFINED 
items if they do not fall into the 
class which is to be addressed direct- 
ly. The code first maps the DEFINED 
item, if necessary, calculates the 
address of the start of the storage to 
be used by the DEFINED item, and final- 
ly, relocates the DEFINED item using 
this address. 



The padding required to align the ele- 
ments on the correct boundary 

All multipliers of arrays of struc- 
tures . 

For all minor structures and major 
structures the following calculations are 
made: 

Size 



Dope vector descriptor dictionary 
entries and record dope vector dictionary 
entries are made for items which need to be 
mapped at object time, or which appear in 
RECORD-oriented input/output statements. 



Phase JP 



The offset from the preceding alignment 
boundary with the same value as the 
maximum appearing in the structure 

Where a structure contains adjustable 
bounds or string lengths, code is generated 
to call the Library at object time. 

For arrays, the multipliers are calcu- 
lated, unless the array contains adjustable 
items, in which case the Library performs 
the calculations. 

For adjustable structures, arrays, or 
strings, code is generated to add a symbol- 
ic accumulator register into the virtual 
origin slot of the dope vector, and the 
accumulator register is incremented by the 
size of the item. 

Calculations are made in a similar 
fashion for arrays of strings (in struc- 
tures or otherwise) with the VARYING attri- 
bute. In addition, code is generated to 
eet up an array of string dope vectors 
which refer, to the individual strings in 
the array using the dope vector- Code is 
also generated to convert the original dope 
vector to refer to the array of string dope 
vectors, instead of to the storage for the 
array. 

The routine which generates code for 
arrays of VARYING strings is also used to 
generate code for the initialization of 
arrays of TASK, EVENT, and AREA variables. 



. Phase JP scans the DEFINED chain, and 
differentiates between the following: 

1. Correspondence defining 

2. Scalar overlay defining 

3. Undimensioned structure overlay defin- 
ing 

4. Mixed scalar-array-structure-string 
class overlay defining 

In correspondence defining, this phase 
differentiates between arrays of scalars 
and arrays of structures. It also checks 
that the elements of the defined item may 
validly overlay the elements of the base 
belong to the same defining class, and that 
the base is contiguous. 

In scalar overlay defining, this phase 
checks that the defined iteir may validly 
overlay the base. 

For undimensioned structure overlay 
defining, this phase checks that the ele- 
ments of the defined item may validly 
overlay the elements of the base. 

For mixed scalar-array-structure- string 
class overlay defining, this phase checks 
that all elements of the defined item and 
all elements of the base belong to the same 
defining class (bit or character) , and that 
the base is contiguous. 
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THE PSEUDO-CODE LOGICAL PHASE 



The Pseudo-Code Phase accepts the output 
of the Translator Phase, and converts the 
triples into a series of machine-like 
instructions. The transformation into 
pseudo-code is achieved by a series of 
passes through the text; each pass removes 
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variables, subscripts, functions, and argu- 
ment markers. 



Phase LR 



The purpose of Phase LR is to save space 
during the expression evaluation phase, LS. 
It provid€»s the initialization for Phase LS 
ty obtaining 4,096 bytes of scratch storage 
and setting stack pointers. The scan 
phase, Phcise LA, is initialized and Phase 
MP is marked. 

The translate table for scanning tri- 
ples, and the constants for expression 
evaluation are included in this phase and 
are moved to the first IK area of scratch 
storage. Subroutines required by phase LS 
are also moved into scratch core at this 
time. Finally, control is passed to Phase 
LS. 



Phase LS 



Phase LS scans the source text to con- 
vert expression triples to pseudo-code. If 
a triple produces a result, it is added to 
the temporary work stack. 

For the arithmetic triples +,-,*,/,**, 
prefix +„ and prefix -, the operands are 
combined to give the base, scale, mode, and 
precision of the result. If conversion is 
necessary „ an assignment triple, with the 
target and source types as operands, is 
inserted in the text. In-line pseudo-code 
is generated for all operators except ** 
and some complex type * and / operators. 
In these cases. Library calling sequences 
are generated. An intermediate result is 
always produced and the triple is removed 
from the text. 

The operands of comparison triples GT, 
GE, equals, NE„ LE, and LT are combined and 
converted as for the arithmetic triples. 
In-line pseudo-code is generated and the 
triple is removed from the text, unless 
both ope3cands are string type, in which 
case a temporary is created. If the next 
triple is a conditional branch, a mask for 
branch-on-false is inserted. Otherwise, 
the result is a length 1 bit string. 

For the string triples CAT, AND, OR, 
NOT, and string comparisons, if an operand 

is zero, TMPD triples, containing the 

intermediate result from the top of the 

stack, are inserted in the text after the 

triple. The result is a CHARACTER or BIT 
string or a COMPARE operator. 



When subscript triples appear, a symbol- 
ic register number is inserted in the 
triple. The result contains the dictionary 
reference of the array and the symbolic 
register. 

For function triples, a description of 
the workspace for the function result is 
inserted in the TMPD triples which follow 
the function triples. The function result 
is added to the intermediate stack. 

For add, multiply, and divide functions, 
the function and argument triples are 
removed from the text. Arithmetic type 
in-line pseudo-code is generated, with 
modifications for the precision and scale 
factor, and the result is added to the 
intermediate stack. 

With pseudo-variable triples, a special 
marker is added to the intermediate result 
stack. 

Other triples which iray use an inter- 
mediate result, are examined. If an oper- 
and is zero, two or three TMPD triples, 
containing the intermediate result from the 
top of the stack, are inserted in the text 
after the triple. If both operands are 
zero, the TMPDs for the second operand 
precede those for the first operand. 



Phase LV 



Phase LV provides string handling facil- 
ities for the pseudo-code phases. 

It converts any type of data item to a 
CHARACTER or BIT string, and an assignment 
triple, with the target and source types 
used as the operands is inserted in the 
text. 

A string dope vector description is 
produced from a standard string descrip- 
tion. 



Phase LX (LW. LY) 



Phase LX consists of three modules, LW, 
LX, and LY. Module LW acts as a pre- 
processor for LX and LY, moving constants 
into scratch core prior to loading the 
string-handling modules. 

Phase LX scans the source text to 
convert string triples to pseudo-code. If 
a result is produced it is added to a stack 
of intermediate string results. 
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For the comparison triples GT f GE , 
equals, NE, LE f AND LT f both operands are 
already string type. If one operand is 
zero, the operand is obtained from the 
associated TMPD triples. In-line pseudo- 
code is generated if the operands are 
aligned and are of known lengths less than 
or equal to 255 bytes; otherwise. Library 
calling sequences are generated. The 
triple and any TMPD triples are removed 
from the text. 



the left hand side descriptions of multiple 
assignments when they occur. Pseudo-code 
and triples are generated for pseudo- 
variables and the left hand side 
descriptions of multiple assignments are 
put out in the correct sequence. 



Phase MD 



In the case of the string triples CAT, 
AND, OR, and NOT, the operands are convert- 
ed to string type by phase LV. Zero 
operands are obtained from associated TMPD 
triples. In-line pseudo-code is generated 
when operands are aligned and are of known 
lengths less than or equal to 255 bytes. 
For the CAT operator, the first operand 
must be a multiple of 8 bits unless the 
strings involved are less than or equal to 
32 bits in length. In-line code is also 
generated for the following cases involving 
non-adjustable varying strings : 

1. Character string concatenation of 
varying strings with lengths less than 
256 bytes. 

2. Bit string operations for AND, OR, 
NOT, concatenation, and comparison 
where the strings are aligned and are 
less than 3 3 bits in length. 

Otherwise, Library calling sequences are 
generated. The triple and any TMPD triples 
are removed from the text, and the string 
result is added to the intermediate result 
stack. 



Phase MD uses the SCAN routine LA to 
scan the text for ADDR and STRING built-in 
functions for which it generates in-line 
code. It appears before the normal func- 
tion processor phase and removes all trace 
of the in-line function. The general SCAN 
routine passes control when these functions 
are found. 

For all cases of ADDR the generated code 
establishes the start address of the argu- 
ment. If structure name arguments are 
present the structure chain is hashed for 
the first base-element. For array names 
the address of the first element is calcu- 
lated. 



If the argument to the 
is contiguous in core, and 
known at compile- time, an ad 
assignment is generated, 
library routines IHESTGA an 
called to produce the cone 
and to concatenate the el 
array or structure argument. 



SIRING function 
its length is 
justable string 
Otherwise the 
d IHESTGB are 
atenated length 
ements of the 



For TMPD triples, if the intermediate 
result described by tile TMPD triples is a 
string, a complete string description is 
moved from the top of the intermediate 
stack to the TMPD triples. If the TMPD 
triples do not describe a string, they are 
ignored. 

In-line code is generated for the BOOL 
functions AND, OR, and EXCLUSIVE OR, when 
the third argument is a character or bit 
string constant and the first and second 
arguments are aligned and of known lengths 
less than or equal to 255 bytes. Otherwise 
Library calling sequences are generated. 
Subscript and function triples may produce 
intermediate string results. 



Phase ME 



Phase ME identifies all invocations of 
the SUBSTR function and pseudo-variable, 
all UNSPEC, STATUS, and COMPLETION func- 
tions, and those invocations of the INDEX 
function which can be implemented in-line; 
and generates pseudo-code tc perform these 
functions at object time. The scan of the 
text is conducted by the general SCAN 
routine, and all trace of the invocations 
of these functions is removed before the 
normal function processor phase is loaded. 
When the end-of-program marker is encoun- 
tered the terminating routine is entered. 



Phase MB 



Phase MG 



Phase MB scans the text for pseudo- 
variable markers and multiple assignment 
markers. A stack of pseudo-variable 
descriptions is maintained, together with 



Phase MG identifies functions which are 
to be coded in-line, and generates, in 
their place, the pseudo-code to perform the 
relevant function. This phase appears 
before the normal function processor phase 
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and removes all trace of the in-line func- 
tion. 



The scan of the text is conducted by the 
general SCAN routine, and control is handed 
to the present phase when one of the 
following functions is found: 



DIM HBOUND 
LBOUND SIGN 
LENGTH FREE 



Phase ML 



ALLOCATION 


FLOOR 


BINARY 


BIT 


IMAG 


DECIMAL 


CEIL 


REAL 


FIXED 


CHAR 


TRUNC 


FLOAT 


COMPLEX 




PRECISION 


CONJG 







Control is also passed to this phase if 
ABS is found with real arguments. The 
arguments are collected, and the appropri- 
ate routine is entered to generate the 
pseudo-code. When the end-of- program mark- 
er is encountered the terminating routines 
are entered. 



Phase ML scans the source text for 
generic entry name arguments to procedure 
invocations. 

Such entry names may be floating arith- 
metic built-in functions cr programmer- 
supplied procedures with the GENERIC 
attribute. When one is found, the correct 
generic family member to be passed is 
selected by this phase, depending on the 
entry description of the invoked procedure. 



Phase MM 



Phase MI 



Phase MI identifies functions which are 
to be coded in-line, and generates , in 
their place, pseudo-code to perform the 
relevant function. This phase appears 
before the normal function processor phase 
and removes all trace of the in-line func- 
tion. 

The scan of the text is conducted by the 
general SCAN routine and control is handed 
to the present phase when one of the 
following functions is found: 



MAX 
MIN 



MOD 
ROUND 



Phase MM scans through the source text 
for procedure invocations fcy a CAIL state- 
ment, or for procedure or Library routine 
invocations by a function reference. 

Procedure invocations are replaced by an 
external standard calling sequence, and 
Library routine invocations are replaced by 
an external or internal standard calling 
sequence as appropriate (see Appendix 
D.10). 

If a CALL is accompanied by a TASK, 
EVENT, or PRIORITY option, library module 
IHETSA is loaded rather than IHESA, and the 
parameter list is modified to include the 
addresses of the TASK and EVENT variables 
and the relative PRIORITY. 



If the number of arguments to the MAX or 
MIN functions is greater than three, a 
Library call is generated. 



Phase MP 



Phase MK 



Phase MK identifies functions which are 
to be coded in-line, and generates, in 
their place, pseudo-code to perform the 
relevant function. This phase appears 
before the normal function processor phase 
and removes all trace of the in-line func- 
tion. 

The sccin of the text is conducted by the 
general SCAN routine, and control is passed 
to the present phase when one of the 
following functions is found: 



Phase MP reorders the BUY and SELL 
statements involved in obtaining Variable 
Data Areas (VDAs) for adjustable length 
strings or temporaries, which were created 
by Phase GK. On entering this phase, the 
BUY triples precede the code compiled to 
evaluate the length of storage required for 
the VDA. This evaluation cede is included 
between further BUYS and BUY triples, which 
themselves are between the BUY triple being 
considered and its associated SELL triple. 
Phase MP extracts these sections of code 
and places them before the EUY triple of 
the adjustable string temporary. Since 
such BUY triples may be nested, the phase 
maintains a count to record the nesting 
status. 
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Phase MS 



Phase MS scans the source text for 
references to subscripted array elements. 

If references are found, pseudo-code is 
generated to calculate the offset of the 
subscripted element in relation to the 
origin of the array. If necessary, further 
pseudo-code is generated to check the sub- 
script range. 

Optimization of constant subscript 
evaluation is carried out on arrays having 
one subscript which is an integer constant, 
and all following subscripts declared to 
have fixed upper and lower bounds. This 
applies to arrays with fixed-length ele- 
ments . 



STOP and EXIT statements are implemented 
simply by invocation of the appropriate 
Library routine. 



For IF triples, if the second operand is 
an identifier, or the result of an 
expression which is not a comparison, code 
is generated to convert it to a BIT string, 
if necessary. This BIT string is compared 
to zero, either in-line, or by a call to 
the Library. 

The second operand may be a mask which 
will have been inserted by the expression 
evaluation phase as a result of the compar- 
ison specified in the IF statement. This 
mask is put into a generated instruction to 
branch if the condition is not satisfied, 
i.e. either to the ELSE clause or to the 
next statement. 



Phase NA 



Phase NA generates pseudo-code for the 
following triples: 



For PROCEDURE' 
Library 
routine. 



call is 



and BEGIN" triples a 
generated to the FREEDSA 



For RETURN triples a Library call is 
generated, unless a value is to be returned 
as the result of a function invocation, in 
which case code is first generated to 
assign the result to the target field, and 
then the Library call is made. If the 
function may return the result as more than 
one data type, a switch would have been set 
at the entry point to the function, and the 
RETURN statement would test the switch 
value, so that the data type appropriate to 
the entry point is returned. 

GOTO triples either will be invalid 
branches detected by Phase FI, in which 
case they will be deleted, or they will be 
branches to statement label constants in 
the same PROCEDURE or BEGIN block. In this 
case, they will be compiled as one- 
instruction branches. 

GOLN triples are compiled into one- 
instructicn branches to the compiler label 
number in operand 2 of the triple. 



A GOOB (Go Out Of 
label 



Block) triple is a 
variable, possibly 
a label in a higher 
to a 



branch to a 
subscripted, or to 
block than the current one (a branch 
lower block is invalid) . A call is gener- 
ated to a Library epilogue routine, point- 
ing at a double-word slot containing the 
address of the label and the Pseudo- 
Register Vector (PRV) offset (for a label 
constant) , or the invocation count (for a 
label variable). 



For ON triples, code is generated to set 
flag bits and update the ON-unit address in 
the double- word ON slot in the DSA. 

For SIGNAL arithmetic condition triples, 
in-line code is generated to simulate the 
condition. For all other conditions, a 
Library error routine is called. 

REVERT triples generate code to set flag 
bits in the double-word ON slot in the DSA. 



Phase NG 



Phase NG generates the calling sequences 
to the Library for DELAY and DISPLAY and 
WAIT statements. 

It generates code to call the library 
routines which handle ALLOCATE and FREE 
statements whose arguments are BASED varia- 
bles. 

For DELAY statements, the argument has 
to be a fixed binary integer, and, if 
necessary, code is generated for conver- 
sion. 

For DISPLAY statements, the message must 
be a CHARACTER string, or, if necessary, 
converted to one. A parameter list is 
built up to pass to the Library. 

For WAIT statements, the parameter list 
is built up in WORKSPACE. It consists of 
the address of the scalar expression 
(converted to a fixed binary integer) , 
followed by the addresses of the event- 
names that appear in each WAIT statement. 
If the scalar expression option does not 
appear, the address of the total number of 
event- names is used. 
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When all data element descriptors and 
symbol tables in the compilation have been 
processed, all STATIC storage has been 
allocated and the total size of the STATIC 
control section is placed in a slot in the 
communications region. 



Phase PP 



Phase PP extracts all ON condition 
entries and places them at the head of the 
AUTOMATIC chain. It then extracts all 
temporary variable dictionary entries from 
the AUTOMATIC chain and places them in the 
zone following the ON conditions in the 
chain. 

All dictionary entries which are totally 
independent of any other variable are 
extracted, and also placed in the zone 
following the ON conditions. 

The phase then extracts all dictionary 
entries which depend upon some other varia- 
ble in containing blocks or in the zones 
already extracted, and places them in the 
next following zone. Dependency includes 
expressions for string lengths, expressions 
for array bounds, expressions for INITIAL 
iteration factors, and defined dependen- 
cies. This is repeated recursively until 
the end of the chain. If some variable 
depends upon itself, a warning message is 
issued. 

A special zone delimiter dictionary 
entry is inserted between each zone in the 
AUTOMATIC chain (see Appendix C.7) . A code 
byte is initialized in the delimiter to 
indicate to Phases PT and QF whether its 
following zone contains any variables which 
require storage (i.e., it does not consist 
entirely of DEFINED items, which do not 
require storage) , and whether or not the 
following zone contains any arrays of VARY- 
ING strings. 



Phase PT 



Phase PT allocates AUTOMATIC storage,, 
scans the CONTROLLED chain, and determines 
the size of the largest dope vector. It 
scans the entry type 1 chain, and for each 
PROCEDURE block or BEGIN block it allocates 
storage for a DSA and compiles code to 
initialize the DSA. 

A two -word slot in the DSA is allocated 
for each ON condition in the block, and 
code is compiled to initialize the slot. 
Space for the addressing vector and work- 
space in the DSA is also allocated. 



Two words are allowed for tasking infor- 
mation in the DSA if the TASK option is •on 
the external PROCEDURE of the compilation. 



The AUTOMATIC chain is scanned and dope 
vectors are allocated for the items requir- 
ing them,. Code is compiled to copy the 
skeleton dope vector, and to relocate the 
address in the dope vector. 

Where there is a block with its DSA in 
STATIC, dope vector initialization is not 
performed for the variables in the first 
region of the AUTOMATIC chain. Address 
slots in dope vectors for variables in the 
remainder of the chain are relocated. 

Storage is allocated for addressing tem- 
poraries type 2 and for addressing con- 
trolled variables, and for the parameters 
chained to the entry type 1 

The first region of the AUTOMATIC chain 
is scanned and storage allocated for double 
precision variables, single precision vari- 
ables, CHARACTER strings and BIT strings, 
in that order. 

The first region of the AUTOMATIC chain 
is scanned and storage allocated for 
arrays, relocating the virtual origin. For 
arrays of strings with the VARYING attri- 
bute, the secondary dope vector is also 
allocated and code is compiled to initial- 
ize the secondary dope vector* Correctly 
aligned storage is allocated for struc- 
tures. If a structure contains any arrays 
of strings with the VARYING attribute, the 
storage for the secondary dope vector is 
allocated at the end of the structure. 

A pointer is set up in the AUTOMATIC 
chain delimiter to the second file state- 
ment which has been created. 

The remaining regions of the AUTOMATIC 
chain are scanned and code is compiled to 
obtain a Variable Data Area (VDA) for each 
region. Code is compiled to copy the 
skeletons into the dope vectors and to 
relocate the addresses in the dope vectors. 
During this pass, any DEFINED items which 
are to be addressed directly have the 
storage offset and the storage class copied 
from the data item specified as the base 
identifier. 



Phase QF 



Phase QF,, which constructs prologues,, 
scans that text which is in pseudo-code 
form at this time with end-of-text block 
markers inserted. 
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When a statement label pseudo-code item 
is found, it is analyzed and one of three 
things happens: 



1. 



The item is saved if it relates to a 
PROCEDURE statement 



Phase QJ 



Phase QJ scans the text 
FREE, and BUY statements. 



for ALLOCATE, 



2. 



The item is omitted if it relates to a 
BEGIN or ON block 



3. The item is passed if it relates to 
neither of the first two conditions 

When a BEGIN statement is found, a 
standard prologue of simple form is gener- 
ated, and code is inserted from second file 
statements (if there are any) to get the 
DSA, either dynamically, or in the case of 
eligible bottom-level blocks, by using the 
supplementary LWS made available at ini- 
tialization time. Code is also inserted to 
initialize the DSA and to allocate and 
initialize any VDAs. 

When a PROCEDURE statement is found, it 
is first determined whether it heads an ON 
block or a PROCEDURE block. If it is an ON 
block, a standard prologue (similar to that 
for a BEGIN block) is generated. If it is 
a PROCEDURE block, a specialized prologue 
is generated. This takes account of the 
manner of getting the DSA, the number of 
entry points, the number of entry labels on 
a given entry point, the number of paramet- 
ers on each entry point, and whether the 
PROCEDURE is a function. 

Prologue code is generated for AUTOMATIC 
scalar TASK, EVENT or AREA variables, in 
order to perform the initialization 
required when these variables are allocat- 
ed. 

The code generated by the prologue con- 
struction phase is partly in pseudo-code 
and partly in machine code. The machine 
code (which is delimited by special pseudo- 
code items) has the same form as the code 
produced by the Register Allocation Phase 
(see Appendix D. 7). 

DSA optimization is performed under 
certain conditions (see Appendix H) . 



At the end of the prologue, 
ment label item saved earlie 
to mark the apparent entry poi 
produced to effect linkage to 
in such a way that general 
contains the address of the 
and general register 1U 
address of the byte beyond the 
gue. 



the state- 

r is inserted 

nt. Code is 

BEGIN blocks 

register 15 

entry point, 

contains the 

BEGIN epilo- 



At the end of the text, any text blocks 
that are not needed are freed, and control 
is passed to the next phase. 



On finding an ALLOCATE statement, a 
routine is called which does a 'look ahead' 
for initialization statements associated 
with the allocated variable, e.g. , adjusta- 
ble array bounds or adjustable string 
lengths, and places the text references of 
each statement in the dictionary entry 
associated with each statement. 

If the allocated item has a dope vector, 
code is generated to move the skeleton dope 
vector generated by Phase PH into a block 
of workspace in the DSA of the current 
block. 

Any adjustable bound expressions or 
string length expressions are then extract- 
ed from the text references, and the 
expressions are placed in-line in the text. 

Any information required from previous 
allocations (specified by * in the ALLOCATE 
statement) is extracted from the previous 
allocation, and copied into the workspace. 

Code generated by Phase JK to initialize 
multipliers, etc., is extracted and placed 
in-line, after first loading the variable 
storage accumulator with the dope vector 
size. Phase JK generates code to increment 
the accumulator register by the size cf the 
item. 

If the item has no adjustable paramet- 
ers, code is generated to increment the 
accumulator by the size calculated at com- 
pilation time. If this size is greater 
than 4,096, Phase JK generates a constant 
dictionary entry, which is used in this 
code. 

If the item has any arrays of varying 
strings, the size of the array string dope 
vector is added to a second accumulator 
register. Code is generated to add the two 
accumulators into the second one, which is 
a parameter to a Library routine. A rou- 
tine is then called which extracts the 
Library call inserted by pseudo-code and 
places it in-line in the text. 

Code is inserted after the Library call 
to initialize the dope vector in workspace 
to point to the allocated storage- Code is 
generated to transfer the dope vector from 
the workspace to the allocated storage. 

The code generated by phase JK to ini- 
tialize arrays of varying strings, tasks, 
events, and areas is then inserted in the 
output stream. 
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Phase RA 



Phase RA scans the text for dictionary 
references, the beginnings and ends of 
PROCEDURE and BEGIN blocks, and the start- 
ing points of the original PL/I statements. 



A dictionary reference, when found, is 
decoded into a word-aligned dictionary 
address and a code. These are used to 
determine what is being referenced. The 
corresponding object time address as an 
offset and base is then calculated. 

If the address required has an offset 
less than 4,096 and a base which is either 
an AUTOMATIC or STATIC data pointer, no 
extra instructions are generated. If this 
is not so, extra instructions are inserted 
in the text stream to calculate the 
required address. The calculation of this 
address is broken down into logical steps 
in a 'step table.' On completion, the table 
is scanned backwards to determine whether 
an intermediate result has been previously 
calculated. The steps which have not been 
previously calculated are then assembled 
into the pseudo-code. 



The compiled code is added either to the 
output stream or to a separate file. The 
code in the separate file is terminated by 
a store instruction to save the calculated 
address. The extra "insertion file" is 
placed in the prologue of the relevant 
block by the next phase. Instructions are 
stored in-line if the referenced item is 
CONTROLLED, if it is a parameter, if fewer 
instructions are required to recalculate 
the base rather than load the stored 
address, or if the reference itself is in 
the prologue. 

If no addressing code is generated, a 
special item is put in text to tell phase 
RF what base to use. 

All relevant information for PROCEDURE 
and BEGIN blocks is stacked and unstacked 
at the start and end of the blocks respec- 
tively. 

At the start of PL/I statements, code is 
compiled to keep the required PREFIX ON 
slots in the Dynamic Storage Area updated. 
On meeting the pseudo-code error marker, 
the calling sequence to the Library error 
package is generated, and the error marker 
removed . 
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If the STMT option has been specified, 
code is generated at the start of each PL/I 
statement to keep the statement number slot 
in the current DSA up to date. 



Phase RF 



THE FINAL ASSEMBLY LOGICAL FHASE 



The Final Assembly Phase converts the 
pseudo-code output of the register alloca- 
tion phase into machine code, the principal 
functions being the substitution of machine 
operation codes for pseudo-code operations, 
and the replacement of PL/ I and compiler 
inserted symbolic labels ty offset values. 



Phase RF scans the text for register 
occurrences, implicit and explicit, and the 
start and end of PROCEDURE and BEGIN 
blocks. At the beginning of PROCEDURE and 
BEGIN blocks all relevant information is 
stacked, and is later unstacked at the 
corresponding end. 

Registers are classified as assigned, 
symbolic, or base. 

Assigned registers require the explicit- 
ly mentioned register to be used. If that 
register is not free it is stored. Symbol- 
ic registers may occupy any register in the 
range 1 through 8. An even-odd pair may be 
requested. Base registers may occupy any 
of registers 1 through 8 . 

When a register is requested, a table of 
the contents of registers is scanned, to 
determine whether the register already has 
the required value. If it does, that is 
used. If it does not, and it is not an 
assigned register, a search is made for a 
free register and this is allocated if one 
is found. Should no register be free, a 
look-ahead is performed to determine which 
register it is most profitable to free. 

If a register contains a base it need 
not be stored on freeing. If a register 
contains a symbolic or assigned register, 
it may require to be stored when freed, 
depending upon whether it has had its value 
altered since any storage associated with 
it was last referenced. 

At a BALR (Branch and Link) instruction 
it is insured that all the necessary param- 
eter registers are in physical registers, 
and not in storage. 

No flow trace is carried out by the 
compiler. Therefore, the register status 
is made zero at branch-in and branch-out 
points. An exception is at a conditional 
branch. Here the registers are not freed 
after having been saved. 

Any coded addressing instructions are 
expanded when found in-line. At a specific 
"insertion point" in a prologue, any 
addressing instructions in the "insertion 
file" are brought in and expanded. 



Loader text is generated for program 
instructions, DECLARE control blocks, and 
OPEN file control blocks, initial values 
defined in the source prograror parameter 
lists, skeleton dope vectors, symbol 
tables, etc. ESD and RLD cards are gener- 
ated for external names and pseudo- 
registers. An object listing of the code 
generated by the compiler is produced if 
the option has been specified by the source 
programmer. 



Phase TF 



Phase TF scans the text, assigns offsets 
to compiler and statement labels, and 
determines the code required for instruc- 
tions which reference labels. 

The size of each procedure is determined 
and stored in the PROCEDURE entry type 1. 
A location counter of machine instructions 
is also maintained. 



Phase TJ 



Phase TJ scans the text until no further 
optimization can be achieved in the final 
assembly. 

A location counter is maintained for 
assembled code, and offsets are assigned to 
labels. 

The size of each procedure is determined 
and stored in the PROCEDURE entry type 1. 
The amount of code required for instruc- 
tions to reference labels is also deter- 
mined, while attempting to reduce this from 
the amount estimated by the first assembly 
pass. 

This phase also attempts to reduce the 
number of Move (MVC) instructions by 
searching for consecutive MVC instructions 
which refer to contiguous locations. 
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Chart EP. Phase EP Overall Logic Diagram 



*****A1********** 

* CONDITIONALLY * 

* MARK PHASES * 

* WANTED AND * 

* NOT WANTED * 

* * 
***************** 



EPL20 

*****B1 ********** 

* GO TO + 

* FIRST ENTRY * 

* IN *. 

* ENTRY TYPE 1 * 

* CHAIN * 
***************** 



* GO TO DICT * 
<* ENTRY FOR *, 

* FIRST LABEL * 

* * 
***************** 



EPL75 X 

*****B3********** 

* CONSTRUCT * 

* ENTRIES * 
,„.X* TYPE 2 AND *. 

* 3 IF NOT * 

* THERE * 
***************** 



* GO TO DICT * 
<* ENTRY FOP * 

* NEXT LABEL * 

* * 
*******#********«- 



EPL40 X 

*****C2********** 

* GO TO NEXT * 

* ENTRY IN * 

* PROCEDURE *. 

* ENTRY CHAIN * 

* * 
***************** 



EPL600 

*****D1********** 

* GET TEXT * 

* REFERENCE * 

* OF START OF *X.... 

* CALL CHAIN * 

* * 
***************** 





**** I 

* * . 

* El *.X. 

* * . 
**** X 

o*. 




El *. 

.* *• 

.* END *. NO 
*. OF CALL .*..... 
*. CHAIN c* 

*• .* 

*• • * 
* YES 


*****£ 2* ********* 

* SCAN THE * 

* DICTIONARY * 
...X* FOR THE * 

* IDENTIFIER * 

* * 
***************** 



,.* *. 

YES .*. END OF *. NO 
....*. ENTRY CHAIN .*... 



E3 



.*. 



*. 



KNOWN 

. .*° 

*. „* 
* YES 



*****D4********** 



***************** 



.♦IDENTIFIER *. NO 
*. BUILT-IN .*... 
♦.FUNCTION .* 



PROCEDURE .* 



..X* B2 * 
* * 

**** 
CDICEN 

*****£;* ********* 
*MAKE DICTIONARY* 

* ENTRY USING * 
...X* DEFAULT RULES * 

* FOR DATA TYPE * 

* * 
***************** 



*EW * PHASE EH (OPTIONAL) CR 
* Al* PHASE EY (OPTIONAL) OR 
* * PHASE FA (NON-OPTIONAL) 



*****F4********** 

* GENERATE * 

* ERROR * 
..X* MESSAGE * 

* INSERT DUMMY * 

* REFERENCE * 
***************** 



EPL360 X 

*****F 5*** ******* 

* REPLACE * 

* BCD BY * 

* DICTIONARY * 

* REFERENCE * 

* * 
***************** 



EPL360 X 

*****G3********** 

* REPLACE * 

* BCD BY * 

* DICTIONARY *. 

* REFERENCE * 

* * 
***************** 



EPL290 X 

*****G4**44**4* 

* GET TEXT 

* REFERENCE 
,..X* OF NEXT 

* ITEM IN * 

* CALL CHAIN * 
***************** 



*x. 



**** 

* * 

* El * 

* * 
**** 
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• Chart EW. Phase EW Overall Logic Diagram 



***** 

»£W * 
* Al* 



EHBEGN X 

*****A1 ********** 

* INITIALIZE. * 

* GET SCRATCH * 

* STORAGE AND * 

* FIRST ITEM IN * 

* LIKE CHAIN * 
***************** 



**** 

► * 

► Bl ♦ .X 



**** 
EWSTRT 

*****Bi********** 

* * 

* SAVE ADDRESS * 

* CODE BYTES * 

* LEVEL ETC * 

* * 
***************** 



♦SCAN DICTIONARY* 

* FOR STRUCTURE * 

* WITH SAME BCD * 

* * 
***************** 



.* THIS A *• 

VALID 

♦.STRUCTURE.* 



*****Q2* ********* 



*************** 



*****P3* ********* 

♦ PICK UP * 

♦ STRUCTURE * 
...X* WITH THE LIKE ♦. 

* ATTRIBUTE ♦ 

* * 
***************** 



EWELOM 

*****0 ;********** 

♦ COPY ENTRY UP ♦ 

♦ TO THIS PCINT ♦ 
...X^ INTO SCRATCH. * 

* ADD DEFAULT * 

* VALUES ♦ 
***************** 



EWNOLK 



El 



*. 



.♦ IS 

.♦ ORIGINAL 

i.X*. STRUCTURE 

♦. OIMENS-.. 

♦. IONED.* 

♦• • ♦ 

* YES 



.♦IS THIS+. 

♦ ELEMENT * 
DIMENSIONED 



♦COPY STRUCTURE ♦ 

♦ ELEMENT INTO ♦ 

♦ SCRATCH * 

♦ * 
***************** 



EWINCH 

*****H1 ********** 

* MAKE DICT * 

* ENTRY, UPDATE ♦ 

* FORWARD ANO ♦X. 

* HASH CHAINS ♦ 

* * 
***************** 



Jl »• 
.♦IS THIS + . 
* THE END ♦. 

OF A NEW 
*. STRUCTURE. ♦ 



ALIGN X 

.*****K l********** 

* CORRECT * 

♦ ALIGNMENT CF * 

* LIKENED ♦ 

♦ STRUCTURE ♦ 

***************** 



E2 *, 
.♦IS THIS^. 
ELEMENT *. 

DIMENSIONED .« 



EWONDM X 

*****F2* ********* 

♦ EXPANDS ♦ 

♦ ENTRY INTO ♦ 

♦ SCRATCH WITH ♦ 

♦ NEW * 

♦ DIMENSIONS * 
***************** 



♦ COPY STRUfTLRE 
,.X^ ELEMENT INTO 

♦ SCRATCH 



*****p 34 ********* 

♦ CALCULATE NEW ♦ 

♦ NUMBER OF ♦ 

♦ DIMENSIONS. * 

♦ PICK UP ♦ 
♦DIMENSION TABLE* 
***************** 



*****£ 4********** 

♦ SET UP ♦ 
*ERRCR MESSAGF. ♦ 

♦ CHANGE ENTRY *X 



FWHSCN X 

*****£ 5********** 

* PUT COPY INTO * 

♦ DICTIONARY. * 
....* UPDATE * 

♦ STRUCTURF AND ♦ 

* HASH CHAIN * 
***************** 



.* 



G3 



ARE *. 
THERE ANY *. YES 
VARIABLE .*.... 

DIMENS- .♦ 
♦ .IONS „* 



EWELDP X 




*****H2* ********* 




♦ COPY ENTRY. * 




♦ INCLUDE * 
...♦ DIMENSIONS IF * 

* PRESENT + 








* * 




***************** 




**** 




* * 




♦ J2 *... 




♦ ♦ . 




**** X 




.♦. 


EWEND 




*****J3********** 


.♦IS THIS+. 


♦' GO TO ♦ 


.♦ THE END ♦. YES 


♦ END ROUTINE ♦ 


..X*. OF THE LIKE .* 


...X^ TO RELEASE ♦ 


♦. CHAIN .♦ 


♦SCRATCH STORAGF+ 



*****G4* ********* 
♦SCAN DIMENSION ♦ 

♦ TABLE FC» ♦ 
X* VARIABLE ♦ 

•DIMENSION ENTRY* 

* * 
***************** 



.EW2FNT X 

, *****H4********* 

* COPY 
♦2ND C ILE DICT. 

, *ENTRY AND TEXT 

* FOR ENTRY 



**************** 



CONTROL IS PASSEO TO 
PHASE FY (OPTIONAL I OP 
PHASE FA (NON-CPTICNALI 
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Table ED. Phase ED, Initialization 



r~ t t- 

| | Main Processing | 

j Statement or Operation Type j Routine j 



Subroutines Used 



J Sets up routines in scratch core | SETUP 

j for phase EL j 

l j. 



| None 

I 
.x 



• Table EDI. Phase ED Routine/Subroutine Directory 



r T" 

| Routine/Subroutine | 
j. + . 

j EVENT j 

j TASK | 

| CELL 

j BASED 

| POINTER 

|OFFSET 

L 



Function 



j Routines for processing declared attributes. These set up 
j information in the attribute collection area of scratch core, 
j f or reference by CDICEN, etc., in phase EL. 



■H 
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Table EG. Phase EG Dictionary Initialization 



•t T 

| Main Processing 
Routine 



Statement or Operation Type 



Subroutines Used 



| Hashes labels 

h 

| PROCEDURE-BEGIN cha in 



|CAA1 

■+ 

ICA7 



CHASH, CBCDL2 



None 



BEGIN 



CA8A 



None 



■H 



PROCEDURE 



I CAP ROC 



CANATP, CFORP 



| ENTRY 

j. 

| Formal parameters 

K- 



ICA10 



CANATP, CFORP 



■H 
■H 



I CFORP 



CHASH, CBCDL2 



I CANATP 



| Attribute list 

|. + 

| Creates entry type 2 entries for |CTYPBL 
| labels I 

l x 



CAPRE1, CATCHA, CATBIT, CATPIC 



ENT2F, CDEFAT 



._J 
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Table EG1. Phase EG Routine/Subroutine Directory 



r T" 

| Routine/Subroutine | 



— i 



Function 



— I 



CAA1 

CANATP 

CAP ROC 

CAPRE1 

CATBIT 

CATC HA 

CAT PIC 

CA6 

CA3A 

CA10 

CBCDL2 

CDEFAT 
CFORP 
CRASH 
CTYP3L 
i.NT2F 
TYPW 

OPTN1 (EF) 
CPTN2 (EF) 
OPTN3 (EF) 
ATTP.BT (EF) 



Scans label table and hashes labels. 

Processes attribute list. 

Processes PROCEDURE statements. 

Processes precision data. 

Processes BIT attribute. 

Processes CHARACTER attribute. 

Processes PICTURE attribute. 

Scans the PROCEDURE- BEGIN chain for the relevant statements. 

Processes BEGIN statements. 

Processes ENTRY statements. 

Traverses the hash chain looking for entries with the same BCD as 
that just found. 

Completes data byte for entry type 2 entries by default rules. 

Processes formal parameter lists. 

Obtains an address in the hash table for an identifier. 

Creates entry type 2 entries for labels. 

Creates or copies second file statements. 

Scans ENTRY chain. 

Checks containing block options, for inheritance. 

Processes procedure options. 

Performs post processing, makes STATIC DSA decisions. 

Processes POINTER, OFFSET, and AREA attributes. 
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* Table ELI. Phase EL Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 
j. + . 



Function 



ATLSCN 



ECDISB 



BCDPR 



ICDATPR (EK) 



CDAT4 
CDAT41 
CDAT4 2 
CDAT4 3 
CDAT4U 
CDAT45 

[CDAT46 
CDAT48 
CDAT49 
CDAT4A 
CDAT4B 
CDAT4C 

|CDAT4D 
CDATUF 
CDAT56 

|CDAT57 

|CDAT58 
CDAT59 
CDAT5A 
CDAT60 
CDAT61 

| CDAT6 2 

I 

| CDAT6 3 

I 
JCDAT64 

I 
(CDAT69 

1 
ICDAT6A 



(EK) 

(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
<EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 
(EK) 



Scans the list of attributes following the identifier, 

Checks for multiple declarations, etc. 

Processes BCD of identifier. 

Attribute controlling routine. 

Processes DECIMAL attribute. 
Processes BINARY attribute. 
Processes FLOAT attribute. 
Processes FIXED attribute. 
I Processes REAL attribute. 
Processes COMPLEX attribute. 
Processes precision attributes. 
Processes VARYING attribute. 
Processes PICTURE attribute. 
Processes BIT attribute. 
Processes CHARACTER attribute. 
Processes FIXED DIMENSIONS attribute. 
Processes LABEL attribute. 
Processes ADJUSTABLE DIMENSIONS attribute. 
Processes USES attribute. 
Processes SETS attribute. 
Processes ENTRY attribute. 
Processes GENERIC attribute. 
Processes BUILT-IN attribute. 
Processes EXTERNAL attribute. 
Processes INTERNAL attribute. 
Processes AUTOMATIC attribute. 
Processes STATIC attribute. 
Processes CONTROLLED attribute. 
Processes INITIAL attribute. 
IProcesses LIKE attribute. 
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* Table ELI. Phase EL Routine/Subroutine Directory (cont'd) 

Function 



r T" 

| Routine/Subroutine | 



I- 



Processes DEFINED ATTRIBUTE. 

Processes ALIGNED attributes. 

Processes UNALIGNED attribute. 

Processes AREA attribute. 

Processes POS attribute. 

Scans each item of DECLARE statement. 

Applies factored attributes. 

Applies default attributes. 

Constructs dictionary entry. 

Performs phase initialization and scans chain of DECLARE statements. 

Hashes BCD of identifier. 

Main scan routine. 

Processes factor brackets and level numbers. 

Initializes and passes control to Module EM. 

Applies implicit attributes. 

Performs initialization for each identifier declared. 

Post-processor. 

Scans chain of DECLARE statements. 

Selects correct test mask to be initialized. 

Processes inheriting of dimensions in structures. 

Scans ahead for next level number. 



H 



|CDAT6B 


(EK) | 


| CDAT6C 


(EK) | 


|CDAT6D 


(EK) | 


|CDAT7 


(EK) | 


|CDAT88 


(EK) | 


|CDCLSC 




j CDFATT 


(EM) | 


| CDFLT 


[EM) i 


| CDICEN 


(EM) | 


| CGENSC 


(EM) | 


|CHASH 


EM) | 


|DCID1 




|DCIDPR 




|ECHSKP 


(EK) | 


| I MP ATT 


(EM) | 


IINTLZE 




| POSTPR 




| SCAN 4 (EM) | 


| SELMSK 




| STRPR 




ITEMSCN 









.-J 
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Table EW. Phase EW Dictionary LIKE 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



| Scans LIKE chain 



EWBEGN 



EWCOPY, EWELDM, EWINCH r EWONDM 



j Updates hash chain for new entry 



EWHSCN 



None 



Calculates start of structure data 
from start of variable information 



EWVART 



None 



j. 

| Changes error entry to base element 



EWCHEN 



None 



J Copies dimension table entry and 
j second file statement 

i 



EW2 FNT 



EWNWBK 



• Table EW1 . Phase EW Routine/Subroutine Directory 



r T" 

1 Routine/Subroutine | 
f. 

j ALIGN (EV) 

1 

j BASED (E',V) 

I 

1 CESCtt 

I 

J EWBEGN 

I 

| EWCHEN 

EWCOPY 

EWDCCY (EV) 

EWELDM 

EWELTS 

EWEND 

EWERNC 

EWHSCN 

EWINCH 

EWNOLK 

EWNWBK (EV) 

EWONDM 

f EWORDM 

I 

j EWSTRT 

t 

|EW2FNT (EV) 

I 



Function 



Provides correct alignment of base elements in likened structure. 

Inserts or deletes defined slot / where only one structure is based. 

Scans dictionary to find entry corresponding to BCD in text. 

Scans LIKE chain. 

Changes error entry to base element. 

Copies dictionary entry into scratch storage. 

Copies initial dictionary entries and associated second file state- 
ments, etc. 

Copies entry into scratch storage with dimension data removed. 

Tests whether the likened structure is dimensioned. 

Handles transfer of control to next phase. 

Processes erroneously "likened" major structure. 

Updates hash chain for new entry. 

Completes entry copy and places it in dictionary. 

Tests whether original structure is dimensioned. 

Obtains new dictionary block and terminates current one in use. 

Copies entry into scratch storage, inserting dimension information. 

Processes dimension information in original structure. 

Tests validity of likened structure. 

Copies second file statement and associated dictionary reference. 



■H 
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• Table EY. Phase EY Dictionary ALLOCATE 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



Scans text for explicitly pointer- 
qualified based variables 



IEMEX 



EY14 



Copies dictionary entries for 
explicitly qualified based varia- 
bles 



EY14 



HASH, ATPROC, DICBLD, STRCPY 



Second file pointers. 
CATE statements 
j. 



Scans ALLO- 



IEMEY 



ATPROC, DICBLD, HASH, STRCPY 



Completes copied dictionary entry 
for an allocated item 



ATPROC with 
second entry 
point ATPROD 



MOVE ST 



Controls ATPROC and ATPROD routines 
for each member of a structure 



STRCPY 



ATPROC, ATPROD 



• Table EY1. Phase EY Routine/Subroutine Directory 



r ■ t- 

| Routine/Subroutine | 
j. 



Function 



ATPROC/ATPROD (EZ) 

DICBLD 

EY16 

EY17 

EY21 

HASH 

IEMEX 

EY14 

IEMEY 

MOVEST (EZ) 

STRCPY 



Complete copied dictionary entry for allocated item by including 
attributes from ALLOCATE and second file statements. 

Collects attribute given for an identifier and copies its dictionary 
entry. 

Processes ALLOCATE statements. 

Processes identifier in ALLOCATE statement. 

Processes major structures. 

Hashes BCD of identifier to obtain its dictionary reference. 

Scans text for explicitly pointer-qualified variables. 

Copies dictionary entries for explicitly qualified based variables. 

Scans second file, reverses pointers. Scans ALLOCATE statements. 

Copies second file statement and associated dictionary entry. 

Controls ATPROC and ATPROD for each member of structure. 
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•Chart MD. Phase MD Overall Logic Diagram 



***** 

*MD * 
* Bl* 



*****B1 ********* 
* 

* SCAN TEXT 

* FOR TRIPLE 

* OF INTEREST 

**************** 



* NO 

o *** 

• * 
.oX* 81 



LFARI1 

*****C3* ********* 

* MAKE ENTRY * 

* IN STACK * 
,..X* MODIFY SCAN *. 

* PARAMETER * 

* * 
***************** 



IT AN 
IGNORE 
TRIPLE 



*****D3 ********* 



•* IT AN *. YES 


* REMOVE 


X*. IN-LINE .*..... 


..X* TRIPLE 


♦.FUNCTION o* 


* FROM TEXT 


*. .* 


* 


*o o* 


*************** 


* NO 




„ **** 




o * * 




..X* Bl * 





.* IS IT *. 
.* A SPECIAL *. YES 
*. ASSIGNMENT .*.... 
*. TRIPLE .* 



.* IS IT 
,.X*. AN IN-LINE 
♦.FUNCTION . 



*****E3********** 

* MAKE ENTRY * 

* IN STACK * 
...X* TO PRODUCE A *. 

* BUY TRIPLE * 

* * 
***************** 



IT AN 
ARGUMENT 
. TRIPLE 



.* IS IT < 
,.X*. AN IN-LINE 

♦.FUNCTION .* 



LFDR 

*****F3********** 

* INSERT A * 

* DESCRIPTION * 
...X* CF ARGUMENT *. 

* INTO STACK * 



**** 



************ 



.* IS *. 
.* IT AN *. YES 
*END-OF-F UNCTION*.... 
*. TRIPLE .* 



* IS IT < 

END OF ADDR 
*.FUNCTICN .* 



* PRODUCE * 
».X* APPROPRIATE *. 

* IN-LINE CODE * 

* * 
***************** 



LFMOVE 

*****G4********** 

* MOVE CODE * 

* TO OUTPUT * 
...X* RESET SCAN *. 

* PARAMETER * 

* * 
***************** 



***** 
♦ME * 
* Bl* 



IT FND *. Y 
OF STRING .♦. 
.FACTION .* 



* PRODUCE * 
K* APPROPRIATE *. 

* CODE * 

* * 

0* *************** 
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Chart ME. Phase ME Overall Logic Diagram 



***** 

• ME * 

* Bl* 



*****81 ********** 

♦INITIALIZATION * 

*-*-*-*-*-*-*_*_* 

♦ OBTAIN SCRATCH ♦ 

♦ STORAGE. SET ♦ 

♦ CFLAG-2 * 

***************** 



♦ TRIPLE OF * 

♦ INTEREST • 

♦♦♦♦♦♦♦*♦♦♦♦*♦•*♦ 



*B4********** 

DELETE ♦ 
CURRENT *X 
TRIPLE * 

* 
************* 



„* 



B5 



.♦. 



♦ . 



IGNORE.* IS IT 

♦. IGNORE 

*.OR DOUBLE.' 

♦ .CCfMA.* 

*• .* 

♦ 

.0CU8L! 
.CCMMA 



♦ PLACE SECOND ♦ 
,.X* OPERAND ♦ 

♦ INTO STACK * 

♦ » 
***************** 



.* 
*• 

*. MARKER 



.INDE»,UNSPF 



.♦ 



El 



»♦• 



♦• 
ITAN * 
END OF 
FUNCTION .« 
♦TRIPLE. ♦ 



*. 



* NO 



i" is J i *• 
RGUMENT TO*. YES 
♦. ONE OF THE ...... 

• .RELEVANT .* 

*. FNS..+ . 



*****F 2*** ******* 



***************** 



*****D3**« ******* 

* UPDATE STACK. * 

* RESET CFLAG. * 
...X* SFT ARGUMENT * 

* SWITCH ON * 

* * 
***************** 



..x* ci * 

* * 
**** 

MSI 

***•*£ 3**4******* 

* UPDATE STACK. * 

* SET CFLAG-2. * 
,..X* SET ARGUMENT * 

* SWITCH 0?F * 



***************** 



4****F4*** ******* 

* * 

* CONSTRUCT * 

* TOB FROM * 

* TMFDS * 

* * 
***************** 



IT A *. 

;tionarv .1 
eference.* 



***•*£ 5********** 
♦CONSTRUCT TDB. * 

* PLACE FIRST ♦ 
♦TRIPLE OPERAND * 

* INTO FIELC 6 * 

* ♦ 
***************** 



*****): ;********** 



***************** 



* IT END 

OF PROGRAM 
*. TRIPLE . 



*****G3 * ********* 



*****G4********** 
* INSPFCT * 
..._»_ * ARGUMENTS * 

...X*CHECK ARGUMENTS* Y* AND PRCCUCE * 

* IN PSEUDO- * * APPROPRIATE * 

* VARIABLE CASE * * IN-LINE CODE * 
***************** ***************** 



***** 
*MG * 
* Al* 



*****H2********** 

* RESET CFLAG * 

* FRCM STACK. * 

* MOVE TRIPLE * 

* TO OUTPUT * 

* * 
***************** 



*****H4*** * ****** 



********** *44**4* 



»***4J2*4******4* 

* * 

* IF CFLAG - 2 * 

* SET APGUMENT * 

* SWITCH ON * 

* 4 

4*4*4***4*444***4 



*****J4*** ******* 

* * 

* IF Cl-LAG-2 * 

* SET ARGUPFKT * 

* SWITCH OFF * 

4 * 

***************** 
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Table MB1. Phase MB Routine/Subroutine Directory 



r T . 

| Routine/Subroutine | 
j. 



Function 



DRFTMP 
GETWKS 
MB0001 
MB0004 
MB0010 

MB0011 
MB0012 

MB0013 

MB001«l 
MB0020 
MB1310 
MB1311 
MB1316 
MB1318 
MB1320 
MMV3A5 
MVTMPD 
QUTMPD 
SWITCH 
TARGET 



Makes temporary descriptor from a dictionary reference. 

Obtains workspace to accommodate a variable of given type. 

Scans source text. 

Mult i- switch for triples of interest. 

On reaching end-of-text marker, releases remaining block, and 
releases control of phase, 

PSI operator; starts new entry in stack for pseudo- variable. 

PSI* operator? completes stack entry and generates code for data 
list items. 

ASSIGN; completes stack and rescan group of assignments, putting 
target descriptions out in correct sequence, generates code for 
pseudo-variable in stack. 

Multiple ASSIGN; places any target descriptors in stack. 

Constructs pseudo- variable stack entry: 

Resets input pointer to start of sequence of ASSIGNS. 

Rescans ASSIGNS and associated TMPDS from stack in reverse order. 

Tests for end of stack. 

Tests for pseudo-varaible TMPD. 

Generates code for pseudo-variable. 

Moves one triple to output. 

Places temporary descriptor in stack. 

Places temporary descriptor in output string. 

Changes scanning table. 

Obtains temporary workspace for pseudo-variable, if necessary. 
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Table MD. Phase MD Pseudo-Code In-Line Functions 



j Statement or Operation 


Type 


| Main Process 
| Routine 
i _ 


ing| 

| Subroutines Used 




| Scans text 




T 

| Phase LA 
_ ± 


T 

(SCAN) |None 




| Bui Ids up function stack 




t — 

j LFARIN 

L _ _ 




T 

|None 
_ i _ _ _ 




j Builds up argument stack 




1 

|LFCOM 
i. _ 




t — — 

| None 

j. _ _ _ 




| Moves generated code to output 
j block 


r — — — 

| LFMOVE 

_ j. _ 




— T 

|MV3(LA) 

1 

X _ _ 




j Generates in-line code and 
j library calling sequences 




|LFE0F2 




T 

j SNAKE, ROPE 
1 





• Table MD1. 
r 



Phase MD Routine/Subroutine Directory 

T" 



LFARI1 

LFARIN 

LFCOM 

LFDR 

LFE0F2 

LFIGN 

LFSPEC 

ROPE 

SNAKE 



Continues scan for in-line functions. 

Builds up function stack. 

Builds up argument stack. 

Unpacks dictionary reference of argument when argument triple found. 

Calls subroutines to generate in-line code. 

Removes triple from text if inside an in-line function. 

Branches if IGNORE triple or not an in-line function. 

Generates code for STRING function. 

Generates code for ADDR function. 



._j 
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• Table MS. Phase MS Pseudo-Code Subscripts 



r - " 



j Statement or Operation Type 
j. 

| Scans text 

^ 



JMain Processing! 
| Routine | 

.+ + 

I SBSCAN I None 



Subroutines Used 



I 
■H 



(Calculates element offset 
I 



SBSTIH 



|SBASS, SBCOBI, SBGNOR, SBMVCD, 
| SBNEST, SBSUBP, SBSUDV, SBXOP, 
| UTTEMP, SBOPT 



■H 



| Checks subscript range 



SBSBRN 



None 



._ji 



Table MSI. Phase MS Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



— I 



SBASS 

SBCOBI (MT) 
SBERR (MT) 
SBGNOR (MT) 
SBMVCD (MT) 
SBNEST (MT) 
SBOPT 

SBSBRN (MT) 
SBSCAN 
SBSTIH 
SBSUBI 
SBSUBP (MT) 
SBSUDV 

SBS05 

SBS06 

SBS00 2 

SBS029 

SBTRID 

SBXOP (MT) 

SCAN 

UTTEMP (MT) 

L . 



Updates scan pointer over an assignment. 

Converts subscript to binary integer. 

Puts error message into dictionary. 

Allocates an odd symbolic register. 

Generates pseudo-code and moves it into output text block. 

Handles nested subscript situation* 

Calculates element offset in optimizable cases. 

Checks subscript range. 

Branches to LA for scan. 

Generates code to calculate element offset. 

Saves array name. 

Handles end of subscript list, 

Generates code to set up the dope vector of an array of adjustable 
strings. 

Generates code to multiply subscript by multiplier. 

Compiles code to convert to fixed binary. 

Checks for occurrence of subscript. 

Generates code to multiply subscript by 4 or 8. 

Scans for comma, subscript prime, or subscript triple. 

Handles special index feature. 

Controlling scan of text. 

Allocates workspace. 
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Table NA. Phase NA Pseudo-Code Branches, ON, Returns 



| |Main Process ing| | 
J Statement or Operation Type j Routine | Subroutines Used | 
L i_ i J 


| Initializes text block | NAINIT JSCINIT (LA) | 
i _j. _ j._ _j 


r — — - — -.j- — — — -j-— — -^ 

|Scans text for next triple of |NASCl r NASC2, |SC1, SC2 f SC3 (all in LA) | 
| interest to user |NASC3 j | 
L _ _ _ _J. J. J 


r — T — — T 1 

| Processes STOP statements | STOP | NAUT1 | 
L _ J. _J. J 


r — — T — — T — 1 

| Processes EXIT statements |EXIT |NAUT1 | 
L _i _ _ _i _ _. __J 


IProcesses IF statements | IF |NAUTD f NAUT16, NAUT21, ZSTUT1 | 

L _ _J. _ _J. J 


r — — — T T — — 1 

j Processes ON statements |0N JNAUTD, NAUT6, NAUT16, SC5 (LA) | 
L _ _ _i. _X _J 


r — T — T 1 

|Produces Library call at end of |PROCP, BEGINP | NAUT1 | 
| each PROCEDURE or BEGIN block in | | j 
j source text j j j 

L_ J. J. _ . J 


r — — T — T — — 1 

IProcesses RETURN statements | RETURN | NAUT1 | 
j. + + < 

IProcesses function RETURN state- |NA3002 |NAUTB f NAUTCA, NAUT1 , NAUT12 j 
jments for one data type | | j 

L J. J._ _ _ J 


r — 1 T 1 

IProcesses function RETURN state- |NA3013 |NAUTA, NAUTB, NAUTCA, rtAUTD, NAUTF f | 
|ments for more than one data type | |NAUT1, NAUT7, NAUT8, NAUT9, NAUT11,| 
j | |NAUT12 | 
h + + < 

IProcesses GO TO statements |GOTO |NAUTD | 

L_ _J. J. J 


r T — T — — 1 

{Processes GOLN triples |GOLN | NAUTD | 

L i_ ___i. , ___— _•- .__.,_____ __J 


IProcesses GOOB statements |GOOB |NAUT5 r NAUTD, NAUT16, SC5 (LA) | 

L J. _J. . _J 


r — r — T — 1 

IProcesses SIGNAL statements | SIGNAL | NAUTD, NAUT6, NAUT16, NAUT8, | 
| | JNAUTIO, NAUT21 | 
y 1 + ^ 



| Processes REVERT statements 

L 



I REVERT 



| NAUTD, SC5 (LA) 

.X 



._J 
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•Chart QJ. Phase QJ Overall Logic Diagram 



***** 

*0J * 
* Al* 



*****£ 1********** 

* * 

* * 

<* SCAN TfcXT *X 

* * 

* * 
****** *********** 



**** 

* * 

* Al *, 



fCJL'ST 

IvfRAY rp 
STRLCT 



**** 

»** * *p?"- ********* 

* COPV * 

* EXTENTS * 

* FRC* CLD *X 

* DOPE VECTOR * 

* * 
***************** 

\ **** 

°oX* P4 * 



fc**R4******ft 

EXTRACT 

EXTENT 

2ND FILE 

STATFVFNTS 

************ 



ALLOC 

*****n 2* ********* 

* SCAN At-EAC * 

* TO REVERSE * 



._ iVERS 
2ND FT|_F 
FCIM T ER" 



***************** 



* NCN *« 
STRING *. NO 
SCALAR . *o.o 



«****£ 4********* 

* EXTRACT 

* MAPFING 

* CODE F»0" 

* 2ND FILF 

**************** 







LIBC1 X 






*****r^# ********* 






* DETERMINE * 






* SIZE, AND * 

* GENFRATlS * 










* CALLING * 


**** 




* SFOUENCE * 


* * 




***************** 


* F2 * 






* * 




**** . 


**** 










* F3 *.X. 


J 




* * o 

**** x 


BY15 X 




• *0 


***#*f:2********** 


F3 *, 


* SET SIZE 


* 


o* *. 


* ANT GENERATE 


* 


o* INITIAL *. 


o.X* CALLING 




*„ VALUE .* 


* SECUENCF 


* 


*• o* 



, *ADJUSTAEI.E 
, ARRAY T« 
*. STRUCT . 



***************** 



***+*G 2 ********** 

* GENERATE * 

* DOPE VECTOR * 

* RELCCATIHN * 

* CODE * 



***** 



***** 



*****G?« ********* 

* * 

* FXTPACT 2NC * 

* FILE * 

* STATEMENT * 

* * 
***************** 



,* STAR 
STRING 
*. LENGTH 



*****G4 ********** 

* * 

* COPY * 
,* OLD * 

* DCPE VECTOR * 

* * 
***************** 



LI6C1 X 

*****F5* ********* 

* DETFRMINE * 

* SIZE, AND * 
,..«* GENERATE * 

* CALLING * 

* SEQUENCE * 
***************** 



*****F 5 ********** 

* GENERATE * 

* DO D E VECTOR * 

* RFLCCATION * 

* CODE * 

* * 
***************** 

I **** 
• * * 
..X* F3 * 

* * 
• *** 

*****G 5*** ******* 

* EXTRACT * 

* 2NC FILE * 
<* STATEMENT * 

* FOR * 

* LENGTH * 
***************** 



* EXTRACT 

* MAPPING 

* CODE 

**************** 
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•Chart QU. Phase QU Overall Logic Diagram 



X TPANS 0*0 ,*o 0*0 

►***A1********** *****A2**+******* A3 *• A4 *o A c *o 

* * SCAM TFXT * o* *o .* *„ .* *„ 

INITIALIZE * * NCTING IPRN * .* LA *. NO .* L *o YFS .* BALR *. 

TEXT POINTERS *,,.....,i(< «.MC FORf« *ooo.o...X*o INST°M „ *. go o« . „ o X*. INSTPN c * 000*. 7,8 INST IN „ 

ETC * X * NESTS * *. .* *. .* . EDIT CALLING* 



***************** „ *****#.!***** 
**** 
**** * 4 



SEQ 



D2 «X.. 



**»* 



1 o LARGO 0*0.. TLA o*. TLL .*. 0*0 

>***B1 ******* P.2 *„ B? *o 94 *. R5 *„ 

* .* *. o* IS *o .* IS *. .* OTHER *. 

* YES o* IS IT *. YES .* IT WITHIN *. YES o* IT LOAD *. NO .* INSTR.Uf.NS *. 
SET ARGSW *X 000*0 AN ARGUMENT ,)«,„„.„*, A CALLING o*X.o 00 . o o o *. "= ROM AODRFSS .* ..0*0 RECUIRING o 

* *. REGISTER .* *. SEQUENCE o* *o OR DOPE o* o *o ALIGNMENT.* 

* *o o* *o o* *VFCTCR.* o *o o* 
************* *„ „* *„ „* *„ „* x * o* 

* NC * MO * NO **** * YES 



**C3******* C4 *o *****C5********** 

* o* IS *. * ' . * 

* o* IT WITHIN *o NO * TURN OFF * 
SFT [i-DSW *o.oo *. A CALLING o *. . . o * ARGSW ANO *X.. 

* . *oSEQUFNCE o* o * CEDSW * 

*o *o o* o * * 

fr********** e *o o * X ***************** 



**** 
ALREGQ 



.* IS *o •* IS *. o * SFT * .* *„ 

NO o*IT REGISTER*. NO .* OPERAND *. . * ALIGM":NT * o* GFT/P|jT * 

»o*WITH MISALIGNEO*X. .0000.0*0 DICTION»PY .* . *RFyn Af.Cr'hOI^G *X..» *. FTIT INIT. 

*. ADDRESS .* ♦.PEFCiJFNCc..* o *TC INSTRUCTION * '. ROUTINE CALL* 

*. ..* *o o* o * * o *o SEQ o* 



El *. E2 *. a****-*,******* . *****e5********»* 

,* *. o* IS *o **** * * . * pco UP * 

CCDSW *o YFS o* IT A *o NC * * * SET * o * STACK * 

OR ARGSW o*Xooooo...*o MISALIGNED ,«,.„1* A2 * * G C T/PUT "oo.oo. * OUTPUTTING * 

. SET . .* *. VARIABLE o* X * * * SWITCH * * MVC ■ S STOPED * 

*. .** °*_ o* o ************** ***************** 



*****F1 ********** 

* SET * 

* ALIGNMFNT * 

* REQUIRED FROM * 
*DED OF VARIABLE* 

* * 
***************** 



0*0 MTMVC 

G4 *. *****Q5********* 

,*!**„ * OUTPUT 

OPERAND *o YES * MOCIFIED 
A TARGET .*...... o . X* INSTRUCTION 

o FIELD .* * FOLLOWED 

*o o* * pv KVC 

*_ _* **************** 



REGENT X "STACK X MS X 

*****H 9 ********** +****H3********** ****rt^^******** 

* NQTF REGISTER * * PUT "VC * * OUTPUT 

* L0A0FO SY THE * * INSTRUCTION * * MVC FOLLOWED 

* IKSTRN, «NC * * FOP IT INTO * * BV MODIFIFD 
*n D FPt\" iLIGNMT* * STACK * * INSTRUCTION 

* PFCUI" C C * * * * 
***************** ***************** *************** 



=INISH OUTPUT * 
RELEASE TEXT * 
FLF»S C CCNTPPL* 
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•Chart QX. Phase QX Overall Logic Diagram 



*****C i********* 



***************** 



SCANC X 

44*44A?4444*4*44* 

* SCAN STATIC * 
*. AUTOMATIC AND * 

* CCNTRCLLFC * 

* CHAIN'S IN * 

* DICTIONARY * 

** **44444*4*4*444 



*****B2********** 



********* 4 *****>{ 

**** I 

* * o 

* C2 *.X„ 

* * ■> 
**** X 

C2 *. 



WAS IT 

STATIC 

CHAIN 



*****B4 4 ****** 

* * 

* TURN ON 

* COBOL 

* SWITCH 

* * 
************** 



.* WAS IT *. 
»X*„ CONTROLLED .< 
*. CHAIN o* 



*****BC********** 



***************** 



• * *o 

.* IS * 
.COBOL SWITCH 



.* IS IT *„ 
o* ENTRY FOR * 
.X*A COBOL MAJOP- 
*. STRUCTURE,* 



*****04 ********** 
♦AUTOMATIC CHAIN* 

* FINISHED. GET * 

* NEXT ENTRY IN * 
♦PROCEDURE CHAIN* 

* * 
***************** 



E2 *. 

.* IS IT *. 

C o+ENTPY FOR A*. 

.*. MAJ-STR: OR •* 

NON-STRUCTURED 

*. ARRAY,* 

*o .* 

* YES 



.♦ END OF *. NO 
,X*, PROCEDURE .*.oo 
*. CHAIN o* 



*****£ 5********** 

* GET HEAD OF * 

* AUTOMATIC * 
<* CHAIN FOR * 

* PROCEDURE * 

* * 
***************** 



* ANALYSE DICT: * 

* ENTRY FOR AN * 

* AGGREGATE * 

* * 
***************** 



*.C0BOL SWITCH 



*****F5********** 

* GET HEAD OF * 
X* CONTROLLED * 

* CHAIN- * 

* * 
***************** 



♦MAKE ENTRY FOR * 

* AGGREGATE IN >' 

* TEXT BLOCK * 

* * 
***************** 



PRNTAB X 

******GA******** 
PRINT 
* AGGREGATE 
LENGTH 
* TABLE 

************* 



*****H2*********< 

* CHAIN THE * 

* ENTRY INTO * 
.* ALPHABETIC * 

* SECLENCE OF * 
*AGGR IDENTIFIER* 

** 44 4***444****** 
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Table PA. Phase PA DSAs in STATIC Storage 

r t ■ 

Main Processing 
Statement or Operation Type 



Routine 



Subroutines Used 



Scans Entry Type 1 chain for blocks 
eligible for STATIC DSAs 



PADSA 



DSASIZ,DVSIZE 



Makes a dictionary entry for each 
STATIC DSA 



DICENT 



None 



-I 



Sorts STATIC chain (called from PD) 



SCSORT 



None 



Scans STATIC chain for INTERNAL 
arrays; calculates number of ele- 
ments for those arrays needing 
initialization. Allocates storage 
for arrays and, if necessary, for 
secondary dope vectors 



ARRSCN 



None 



Table PA1. Phase PA Routine/ Subroutine Directory 



r "r 

| Routine/Subroutine | 



— i 



Function 



|. 1 .j 

I ARRSCN | Scans STATIC chain for INTERNAL arrays; allocates storage for arrays 

and secondary dope vectors (called from PH) . 



I 
I 
| DICENT 

I 

| DSAS I Z 

I 
JDVSIZE 

I 
I 
| PADSA 

I 

| SCSORT 

L . J. J 



Makes a dictionary entry for each STATIC DSA. 

Calculates size of DSA excluding Register Allocator Workspace. 

Scans AUTOMATIC chain for variables requiring dope vectors, and 
calculates size of dope vectors. 

Determines eligibility of a block for a STATIC DSA. 

Sorts STATIC chain (called from PD) . 
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Table QU. Phase QU Alignment Processor 
r 



I— 



I— 



H- 



•H 



H 



|Main Process ing| 
Statement or Operation Type j Rou' Ine | Subroutines Used 

j. _ _ _± 


T t — — — 

Tests pseudo-code instructions for |ALIGNQ | ALREGQ, MVCMAK, REGENT 
misaligned operands and deduces the| | 
correct alignment j j 

_„ _ j. _ _ j. 


Generates a move character (MVC) |MVCMAK | ABEOT,NEXREG,OUTEST,PSMOVE, REMOVE, 
instruction for a misaligned oper- j JSNEXT, TRANS 
and j | 

_ _ „ 4. _ _±_ 


Skips a pseudo-code item |T3 |TNEXT 

j. _ 4. _ _ _ _ _ 


T ' T — - - — — 

Processes the load address (LA) |TLA |TRR 
pseudo-code instruction | j 

_j. __i. , 


Processes the library calling |TLTB |ABEOT,T3 
sequence in the pseudo-code | j 

_4- _ j. _ 


— T T 

Processes the L pseudo-code |TLL | ALIGNQ, ALREGQ, OUTEST ,PSMOVE, REMOVE, 
instruction j | SNEXT, TRANS, TRR 

_ j. _ _. j. 


T T — — 

Processes pseudo-code instructions, | THT |ALIGNQ,TRRS 
other than L and LA, that may have j | 
misaligned operands j | 


— . - - - f - - — -f- — - — ~ 

Examines a pseudo-code item and | TRANS | T3, TABS, TDROP,TEOP, THT, TLA, TLIB, 
passes control to the appropriate j |TLL,TRR,TSN 
processing routine 1 J 

._-.._ i x _ . 



H 



■H 



■H 



■H 
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•Table QUI. Phase QU Routine/Subroutine Directory 



r t - 

Routine/Subroutine | 



Function 



h 



ABEOT 

ALREGQ 

NEXREG 

OUTEST 

PSMOVE 

REGENT 

REMOVE 

SNEXT 

TABS 

TDROP 

TEOB 

TEOP 

TRR 
TSN 



Outputs terminal error message. 

Tests whether or not the register is in the register table. 

Gets a symbolic register. 

Gets a new output text block if required. 

Fills current output text block and gets a new one. 

Makes an entry in the register table for a register that has been 
loaded with the address of a misaligned operand. 

Copies text into the output text block. 

Accesses next pseudo-code item in the source text. 

Scans absolute code and copies it onto the output text if necessary. 

Removes dropped registers from the register table. 

At the end of a source text block, moves out the scanned text and 
gets the next source text block. 

At the end of the program, outputs the remaining text, and releases 
control. 

Deletes an assigned register from the register table. 

Updates the statement number slot in the communications region. 
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• Table QX. Phase QX Print Aggregate Length Table 



■T T" 

I Main Processing! 

| Routine | 

-+ 



Statement or Operation Type 



Subroutines Used 



| Scan storage chains in dictionary | SCANC 
| for aggregate entries j 



■+- 



| ANAGG , PRNTAB 



4 

| ANCOB, EXTENT , FINALA , FIRSTA, FORMAL, 
j GETVO,GETSB, MAKEN, PRHED, SORTEN, 
| VOPLUS 

-J. 



H 



| Analyze aggregate dictionary 
| entries and print table entry 



ANAGG 



• Table QX1. Phase QX Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 
j. 



Function 



-H 



ANAGG 

I 

| ANCOB 

I EXTENT 

FINALA 

FIRSTA 

FORMAL 

GETVO 

GET SB 

WAKErt 

PRHED 

PRNTAB 

SCANC 

SORTEN 

VOPLUS 



Analyzes dictionary entries for a major structure or non- structured 
array. 

Finds original major structure dictionary entry for a COBOL major 
structure. 

Calculates length in bytes of a data variable, label, task, event, 
or area. 

Calculates address of final basic element of a major structure. 

Calculates address of first basic element of a major structure. 

Calculates length of a non- structured array. 

Gets virtual origin of a dimensioned variable. 

Sets pointer to BCD in a dictionary entry. 

Makes an entry in text block for each aggregate. 

Prints main heading and sub-heading of table. 

Prints Aggregate Length Table. 

Scans STATIC, AUTOMATIC and CONTROLLED chains in dictionary for 
aggregate entries. 

Sorts text block entry for aggregate so that the entries are chained 
in collating sequence order of the aggregate identifiers. 

Calculates address of first or last element of major structure. 
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Chart 09. Register Allocation Logical Phase Flowchart 



***** 

*09 * 

* Al* 



*****A1 ********** 
♦FIRST SCAN RA* 
*-*—*- *-*-*-*-*-* 

* ESTABLISH * 
*ADDRESSIBILITY * 

* * 
***************** 



.*_*- *_*-*-* 



***************** 
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Section 3: Charts and Routine Directories 



APPENDIX A; GUIDE TO PHASES AND MODULES 



This appendix relates the logical phas- 
es, physical phases, and modules contained 
within the physical phases. The compiler 
name is IEMAA. 

PHYSICAL 

PHP.SE MODULES DESCRIPTION 



Compil e r Control 
P.l\ 

AB 

AC 

AD 

AIE 
AF 

AG 

AH 

AI , AJ 

AK 

AL 

AM 
AN 

BX 



Controls running of 
compiler 

Performs detailed ini- 
tialization 

Writes records on 

intermediate file 

SYSUT3 

Performs interphase 
dumping as specified in 
the DUMP option 

End of read- in phase 

Controls system genera- 
tion compiler options 

Closes SYSUT3 for out- 
put, reopens for input 

Format annotated dic- 
tionary dumo 

Format annotated text 
dump 

Closing phase of com- 
piler 

Controls extended dic- 
tionary compilation 

Phase marking 

Controls normal dic- 
tionary compilation 

U8-character set prep- 
rocessor 

Builds second half 
phase directory 



Compile-t i me Processor Logical Phase 
AS 



AV 



Resident phase for 
compile-time processor 

Initialization phase 
for compile-time proc- 
essor 



BC BC,BE,BF Initial scan and tran- 

slation phase for 

compile-time processor 



BG BG,BI.,BJ Final scan and replace- 
ment phase for compile- 
time processor 

BM BM f BN Error message printout 

phase 

BO,BV Contain the diagnostic 
messages 



BW 



Cleanup phase for 
compile-time processor 



Read-In Logical Phase 



CA 



CC 



Read-In phase common 
routines 

Read- In phase common 
routines 



CI 



CE Keyword tables 

CG,CI Read-In pass 1 

CK Keyword tables 

CL CL,Cfc Read- In pass 2 

CN Keyword tables 

CO CO,CP Read-In pass 3 

CR Keyword tables 

CS CS,CT Read- In pass 4 

CV CV,CW Read-In pass 5 

Di ctionary Logical Phase 

ED ED 



EG 
EI 



EF,EG 



Initialization, 
subroutine package for 
Declare Eass 2 

Initia lization 



EH,EI,EJ First pass over DECLARE 
statements 



EL EK,EL,EM Second pass over 

DECLARE statements 



EP 



EP 



Constructs dictionary 
entries for PROCEDURE, 
ENTRY and CALL state- 
ments 
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EW EV,EW Constructs dictionary 

entries for LIKE attri- 
butes 

EY EX,EY,EZ Constructs dictionary 

entries for ALLOCATE 
and for explicitly 

qualified based varia- 
bles . 

FA FA,FB Checks context of 

source text 

FE FE f FF Changes BCD to dic- 
tionary references 



FI 



FK 



FI 



FK 



Checks validity of dic- 
tionary references 

Rearranges attributes 



FO FO,FP Constructs dictionary 

entries for 0N- 

conditions 



FQ 



FQ 



Checks validity of 

PICTURE chain 



FT FT,FU Dictionary 

hous e- keeping 

FV FV,FW Merges second file 

statements into text 

FX FX,FY,FZ Processes identifiers 

for cross reference and 
attribute listing 

Pretranslator Logical Phase 

GA GA Constructs DECLARE and 

OPEN control blocks 

GE GB,GC Modifies I/O statements 

GK GK Checks parameter match- 

ing 



GO 



GP 



GO 



Preprocessor for second 
check on parameters 



GP,GQ,GR Second check on param- 
eters 



GU GU,GV Processes CHECK condi- 

tion statements 

HF HF,HG Processes structure 

assignments 

HK HK,HL Processes array assign- 
ments 



HP 



HP 



Processes items defined 
using iSUBs 



IA 



IG 



IL 



IA,IB,IC Stacks operators and 
operands 



IG 



IL 



Processes array and 
structure arguments and 
built-in functions 

Preprocessor for gener- 
ic functions 



IM IM,IN, Processes generic func- 
IP f IQ Ic functions 



IT 



IX 



JD 



IX 



JD 



Processes function tri- 
ples 

POINTER and AREA check- 
ing 

Evaluates constant 
expressions 



Aggregates Logical Phase 



JI 



JI r JJ Structure 

pre-preprocessor 



JI JI,JK f JL Structure preprocessor 

JK JK, JL f JM Structure processor 

JP JP Checks DEFINED chains 

Pseudo-Code Logical Phase 

LA LA Utility scanning phase 

LB LB # LC Generates triples to 

initialize AUTOMATIC 
and CCKTFOILED scalar 
variables 



LD 

LG 
LR 



LD Constructs .dictionary 

entries for initialized 
STATIC scalar variables 
and arrays 

LG,LH Expands EO loops 

LR Initialization for 
Phase LS 



LS LS # LT,LU Converts expression 

triples to pseudo-code 



LV 



LW 



LV 



LW 



Provides string han- 
dling facilities 

Initialization for 
phase LX 



LX LX,LY Converts string triples 

to pseudc-code 

MB MB,MC Constructs pseudo-code 

for pseudo- variables 



Translator Logical Phase 



MD 



MD 



Scans for ADDR and 
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ME 
MG 
MI 
MK 
ML 
MM 

MP 
MS 
NA 

NG 

NJ 

NM 

NT 
NU 

OB 



ME 

MG f MH 

MI,MJ 

MK 

ML 

MM,MN # MO 

MP 

MS,MT 

NA 

NG 

NJ,NK 

NM,NN 

NT 
NU,NV 

OB,OC 



OD 




OE 


OD,OE # OF 


OG 


OG,OH 


OM 


OM f ON,00 



STRING functions and 
generates code for each 



Constructs pseudo-code 
for in-line functions 

Constructs pseudo-code 
for in-line functions 

Constructs pseudo-code 
for in-line functions 

Constructs pseudo-code 
for in-line functions 

Processes generic entry 
names 

Processes CALL and 
function procedure 
invocations 

Reorders BUY and SELL 
statements 

Constructs pseudo-code 
for subscripts 

Generates pseudo-code 
for branches, RETURN 
triples, etc. 

Generates Library call- 
ing sequences for DELAY 
and DISPLAY statements 

Generates Library call- 
ing sequences for exe- 
cutable RECORD-oriented 
input/ output statements 

Generates Library call- 
ing sequences for exe- 
cutable STREAM-oriented 
input/output statements 

Pre-processor for NU 

Generates Library call- 
ing sequences for 
data/format lists 

Processes compiler 
functions and pseudo- 
variables 

Pseudo-code assignment 

Constructs Pseudo-code 
for assignments 

Generates library 

calling sequences 

Generates pseudo-code 
for data type conver- 
sions in-line 



OP 



OP,OQ 



Generates pseudo-code 
for further inr-line 
conversions 



OS OS,OT,OU Converts constants to 

required internal form 



Storage Allocation Logical Fhase 



PA 



PD 



PH 



PL 



PA 



PD 



PH 



PL f PM 



Puts eligible DSA's 
into STATIC 

First STATIC storage 
allocation phase 

Second STATIC storage 
allocation, phase 

Constructs symbol 
tables and DEDs 



PP 


PP 


Sorts AUTOMATIC chain 


PT 


PT r PU,PV 


Allocates AUTOMATIC 
storage 


QF 


QF,,QG,QH 


Constructs prologues 


QJ 


QJ,QK,QL 


Allocates DYNAMIC stor- 
age 


QU • 


QU 


Aligns misaligned oper- 
ands 


QX 


QX 


Lists lengths of aggre- 
gates 


Register 


Allocation 


Logical Phase 



RA 



RA,RB,RC Processes addressing 
mechanisms 



RF RF,RG,RH Allocates physical reg- 
isters 

Final Assembly Logical Phase 



Assembly first pass 

Optimization 

Produces ESD cards 

Assembly second pass 

Final assembly initial 
values, first pass 

Generates RLD and TXT 
cards to set up dope 
vectors for STATIC DSAs 

Final assembly initial 
values, second pass 

Produces listings 



TF 


TF 


TJ 


TJ,TK 


TO 


TO., TP , TQ 


TT 


TT,TU 


UA 


UA,UB,UC 


UD 


UD , UB , UC 



UE 



UF 



UE,UB,,UC 
UF,UG,UH 
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UI 



UI,UG,UH 



Error Editor 



XA 



XA 



Completes final assem- 
bly listings 



Determines whether 
there are diagnostic 
messages to be printed 



XA f XB 

XA,XC 

XF 
XG f YY 



Constructs the 
phase list 



third 



Controls the printing 
of messages 

Message address blocks 

Contain the diagnostic 
messages 
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APPENDIX C; INTERNAL FORMATS OF DICTIONARY ENTRIES 



This appendix describes the formats of 
dictionary entries during the compilation 
of a source program. The appendix is 
organized in the following manner: 

1. Dictionary entry code bytes 

2. Dictionary entries for ENTRY points 

3. Code bytes for ENTRY dictionary 



4. 



5. 



6. 



Code bytes 
entries 



Dictionary entries for DATA, 
and STRUCTURE items 



LABEL, 



Code bytes for DATA, LABEL, and STRUC- 
TURE dictionary entries 

Uses of the OFFSET 1 and OFFSET 2 
slots in DATA, LABEL, and STRUCTURE 
dictionary entries 



7. Dictionary entries for: 

label constants 

data constants 

formal parameters 

FILE entries 

TASK and EVENT data 

internal library functions 

parameter descriptions 

ON conditions 

PICTURES 

expression evaluation workspace 

dope vector skeletons 

syrcbol table entries 

AUTOMATIC chair* definitions 

DED dictionary entries 

FED dictionary entries 

terrcorary dope vectors 

BCD entries 

second file statements 

8. Dimension tables 



DICTIONARY ENTRY CODE BYTES 



The dictionary is used to communicate a 
complete description of every element of 
the source program, the compiled object 
program, and the compiler diagnostic messa- 
ges between phases of the compiler; the 
text describes the operations to be carried 
out on the elements. 

Each type of element has a charac- 
teristic dictionary entry, which is iden- 
tified by a code occupying the first byte 
of the entry. In general, each type of 



element has a different code byte, but in 
order to permit rapid identification of 
dictionary entries, the cede bytes have 
been allocated on the following basis: 



First Half Byte 



Bit Bit 

Position Value Meaning 

entry has ECD 

1 entry has no ECD 

1* entry is to be chained 
1 entry not to be chained 

2 not a member of structure 
1 member of structure 

3 not dimensioned 
1 dimensioned 

♦This bit only applies to Phase FT which 
constructs the storage class chains by a 
sequential scan of the dictionary; later in 
the compiler, items with this bit on are 
added to the storage class chains. 

Second Half Byte 

In the second half byte, the following 
codes have the meanings shown, unless the 
first half byte is X'C: 



X'7* means 

X'C means 

X'D* means 

X*E* means 

X*F* means 



label variable 
task identifier 
event variable 
structure 
data variable 



The second and third bytes of every 
dictionary entry contain the length, in 
bytes, of the entry. If the entry has BCD 
(i.e., the first bit of the entry is zero), 
this length count does not include the BCD; 
instead, the BCD, which, fellows the main 
body of the entry, is preceded by a single 
byte containing one less than the number of 
characters of BCD. 

Using this general scheme, the code 
bytes allocated for dictionary entries 
appear in the following table. Code bytes 
in the table which have nc corresponding 
description are not allocated. 

X'OO" Statement label constant 

01 Procedure or entry label 

02 GENERIC entry label 

03 External entry label (entry type 4) 

04 Built-in function, e.g., DATE 
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05 Temporary variable and controlled 
allocation workspace 

06 Built-in GENERIC label, e.g., SIN 
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07 
08 
09 
0A 
OB 
OC 
OD 
OE 
OF 



10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
1A 
IB 
1C 
ID 
IE 
IF 

20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
2A 
2B 
2C 
2D 
2E 
2F 

30 
31 
32 
33 
34 
35 
36 
37 

38 
39 
3A 
3B 
3C 

3D 

3E 
3F 



40 
41 



Label variable 
File constant 



Task identifier 
Event variable 



Data variables (not dimensioned or a 
structure member) 



Dimensioned label variable 



Dimensioned task identifier 
Dimensioned event variable 

Dimensioned data variable 



Label variable in structure 



Task identifier in structure 
Event variable in structure 
Structure item 
Data variable in structure 



Dimensioned and structured label 
variable 



Dimensioned task identifier in 

structure 

Dimensioned event variable in 

structure 

Dimensioned structure item 

Dimensioned and structured data 

variable 

Formal parameter type 1 



42 
43 
44 
45 
46 
47 
48 
49 
4A 
4B 
4C 
4D 
t»E 
4F 

80 

81 

82 
83 
84 
85 
86 
87 

88 
89 

8A 
8B 
8C 
8D 
8E 
8F 



90 
91 
92 
93 
94 
95 
96 
97 

98 
99 
9A 
9B 
9C 

9D 

9E 
9F 



A0 
Al 
A2 
A3 
A4 
A5 
A6 
A7 
A8 
A9 



ON CONDITION entry 



ENTRY type 1 — from a PROCEDURE 

statement 

BEGIN statement entries — entry 

type 1 

ENTRY statement — entry type 1 

Entry type 5 

Entry type 3 

Entry type 2 

Entry type 6 

Label variable formal parameter or 

temporary 

Constant 

File formal parameter cr file 

temporary 



Task identifier formal parameter 
Event variable f crmal parameter 

Data variable formal parameter or 
temporary 

Invocation count dictionary entry 



Dimensioned variable formal parameter 

or temporary 

File attribute entry 



Dimensioned task identifier foriral 

parameter 

Dimensioned event variable formal 

parameter 

Dimensioned data variable formal 
parameter or dimensioned temporary 



Structured label variable temporary 
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5. CODE BYTES ifQR DATA, LABEL. AND STRUCTURE DICTIONARY ENTRIES 



The First Code Byte - Other 1 



h 


Bit 
No. 


1 


Description 






I 


Set By 


1 




Symbol or requires load 
label constant 


constant if 




Phase EL r FT, or 
NU 




2 




Defined on 








Phase EL 




3 




Mentioned in CHECK list 








Phase FO 




4 




Needs DVD 








Various 




5 




Last member in structure 








Phases EL or EW 




6 




Variable dimensions 








Phase EL 




7 




* dimensions 








Phases EL and FT 




8 




* string length for data 


item 






Phases EL and FT 








— More labels follow for 
constant 


a lab 


el 




Phase EG 








Major Structure - no member 

the structure has a dimension 
length attribute which is not 


of 
or 

* 




Phase EY 



L J. - X„ J 



Th e S ec o nd Code Byte - Other 2 



r 

| Bit 

I NO. 
|. 

I 1 
I 
I 2 



I 3 

I 

I <* 

I 

I 5 

I 

I 6 

I 

I 7 

I 

| and 



Description 



Set by 



Dynamically defined 

CONTROLLFD major structure with 
varying strings 

NORMAL = 0, ABNORMAL = 1 

Reserved 

Formal Parameter 

INTERNAL - 0, EXTERNAL = 1 

00 = AUTOMATIC or DEFINED or simple 

parameter 

01 ~ STATIC 

11 = CONTROLLED 



Phase EL 
Phase EY 

Phases EI and FT 

Phase EI 
Phase EI 
Phase EL 

Phase EL 
Phase EL 
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The Third Code Byte - Other 3 



h 


Bit 
No. 


1 


Description 


1 






Set by 


1 


1 


Needs dope vector 


l 


Phases EK and EY if variable 
dimension entries, variable 
string length, or in 
CONTROLLED storage; 
Phase NU when item appears 
in an argument list 




2 




Needs DED 




Phase 


NU 






3 




Needs no storage for the item 
itself 




Phase 


GP 






4 




Correspondence defined 




Phase 


FV 






5 




Chameleon 




Phase 


GP 






6 




Sign bit for first offset 




Phase 
Phase 


PH 
PT 


for STATIC and 
for AUTOMATIC 




7 




Indication of the state of 
the value in the first offset 

= rubbish 

1 = good value 




Phase 
Phase 


PH 
PT 


for STATIC and 
for AUTOMATIC 




8 




As above but for second 
address slot 




Phase 


PH 





L J. X . J 



356 



The Fourth Code Byte - Other 4 



Bit 
No. 

- — 1 


Description 

l _ : 


l — 


Set 


by | 
j 


1 


r 

Usage (i) : 

An explicit alignment 
declaration has been made 

Usage (ii) : 

A constant has been produced 
for this structure or array 


r 
Phase 

Phase 


EL 
JK 


(for EW) | 


2 

and 

3 


00 = Not temporary 

01 = Temporary type 2 

10 = Temporary not sold 

11 = COBOL temporary 


Phase GP, # 
IM,, or LB 


HF,, HK r | 


4 


Member of defined structure 


Phase 


FV 




5 


Packed = Aligned = 1 


Phase 


EL 




6 


Major structure 


Phase 


EL 




7 


No dope vector initialization 


Phase 


GP 




8 


A temporary type 2 which has 
been incorporated in work- 
space 1 or RDV required. For 
COBOL temporaries this bit 
means RDV required 


Phase 


OB 
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9 

10 
11 
12 



13-14 



15 



Data Precision* 



Scale Factor* 

♦These are the apparent pre- 
cision and factor derived 
from the BCD of the constant 
(see Note 2) 

Type (see note 1) 

DATA byte (2) 

Data Precision (2)** 

Scale Factor (2)** 

♦♦These bytes are inserted 
by the phase requesting con- 
version. If a picture is 
required, these bytes are 
used to contain a picture 
table reference (see Note 3) 

Dictionary reference - used 
when a phase requires a con- 
stant to be converted into a 
specific location in storage 

BCD 



Eighth bit: 1 indicates that no 
version is required. 



con- 



Notes ; 

1. The type byte has the following mean- 
ing: 

First and second bits : 

00 - normal BCD constant. The first 
offset slot must be relo- 
cated by the storage allo- 
cation phase, to contain 
the offset of the converted 
constant from the start of 
STATIC storage, rather than 
from the start of the con- 
stants pool 

11 - the BCD is replaced by the inter- 
nal form of the constant. 
The first offset slot is 
treated in the same way as 
for the code 00 

10 or 01 - the constant is required to 
be converted into a speci- 
fic location in storage. 
The second code implies the 
converted constant should 
be made negative before 
being stored 



Sixth bit: 1 indicates that 
stant requires a DED. 



the con- 



2. After the constants processor the 
bytes 6 through 8 will contain the 
offset of the constant from the start 
of the pool of constants. If a dope 
vector is requested then the offset of 
this from the start of the constants 
pool is eight less than that of the 
converted constant. 

3. Should a DED be required, this will be 
constructed by Phase PL. The two 
bytes, precision(2) and scale 
factor (2), will contain a dictionary 
reference of a DED dictionary entry. 
If the constant requires a dope vector 
then Phase OS will make a dictionary 
entry for it, and the dictionary ref- 
erence preceding the ECD will be the 
dictionary reference of this. 



Task Identifiers and EVENT Data 



The format of the dictionary entries for 
task identifiers and EVENT data is, apart 
from the initial code byte, the same as 
that for a label variable. 



Dictionary Entries for Built-in Functions 



The format is: 



Byte Number 
1 

2-3 
4-5 

6-8 
9-10 



Description 

Code byte X'04* 

Length 

Hash chain - lat,er becomes 
the STATIC chain 

Offset - gives the position 
in STATIC storage of the 
load constant for Library 
routine 



Seventh bit: 1 indicates that 
constant requires a dope vector. 



the 



Code bytes 
byte contai 
identifies 
function an 
information 
used mainly 
MD-MM inclu 
code byte 
information 
in functi 
Code Byte." 



- the first code 

ns a value which 
the built-in 

d also provides 
atout it. It is 
by phases IM and 

sive. The second 
contains further 
ahout the built- 

cn (See "Second 

) 



11-12 



DECLARE statement number 
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13 


Level 


in 


Count 


15 


BCD length-1 


16 


BCD 



13 
14 



further information about 
the function 

Level 

Count 



Second Code Byte 



BCD entries 



The second code byte contains the 
following information: 



Eit Number 
1 
2 



Description 

May be passed as an argument 

May have an array as an 
argument 

Must have an array as an 
argument 

Is a pseudo-variable 

Indicates to which of the 
two tables the offset refers 

May have an array (or 

structure) as an argument, 

but will return a scalar 
result 



Internal Library Functions 

Library routines, other than built-in or 
GENERIC functions, are known as Internal 
Library Functions. Their dictionary entry 
format is as follows: 

Byte Number Description 

1 Code Byte X*C2' 

2-3 Length 

4-5 Hash chain 

6-8 Offset 

9 Library Code - identifies 
the particular Library rou- 
tine required 

10 Not used 

11-12 Code Bytes - the first code 
byte contains a value used 
by phase MG to pick up com- 
plete information about the 
Library function. The sec- 
ond code byte contains 



BCD entries are used when the LIKE or 
DEFINED attributes are used. A short dic- 
tionary entry with the format given below 
is used. This is pointed at by the dic- 
tionary entry with the attribute. 



Byte Number 


Description 


1 


Code Byte X f 40" 


2-3 


Length 


4 


BCD length-1 


5 


BCD 



Dictionary Entry for Parameter Descriptions 



Dictionary entries for parameter des- 
criptions are identical with the normal 
entry for data variable, label variable, 
structure, file, or entry points, except 
for the following details: 

Hash chain contains pointer to formal 
parameter type 1. After Phase FT this 
pointer is moved to the tytes contain- 
ing level and count 

No BCD is present 

No block identification is present for 
ENTRY or FILE 

The code byte for an entry point 
referred to as entry type 6 - is X*86* 



ON Statements 



Entries for ON statements are made by 
Phase FO, and contain the following: 



Byte Number 


Description 


1 


Code Byte X'CE' 


2-3 


Length 


4-5 


AUTOMATIC chain 



36 4 



6-8 



Offset 



PICTURE Entry 



10 

11 
12 



Code byte as supplied by the 
Read- In Phase 



Block level 

Block count 
n 



The format of an entry in the picture 
table in the dictionary. 



13 onwards n dictionary references of 
variables or ON condition 
entries 



ON Condition 

This entry is made by Phase FO: 
Byte Num b er Description 

Code Byte X'4D? 
Length 



1 

2-3 

4-5 



6-8 
9 

10 
11 
12 



Hash chain later used as 
AUTOMATIC chain 

Offset 

Code byte as supplied by the 
read in phase 

Block level 

Block count 

BCD length- 1 



13 onwards BCD 



CH ECK List Entry 

This entry is made by Phase FO: 
Byte Number Description 

1 Code Byte X'C8' 

2-3 Length 



n where n is the number of 
dictionary references fol- 
lowing 



Byte Number 
1 

2-3 
4-5 

6-8 



Description 

Code Byte X'C8' 

Length = L+13 

Contains address of 
entry in picture chain 



next 



10 



11 



12 



Usage (1) (Eefore Phase FQ) 
Dictionary reference of 
associated declare or format 
statement, right adjusted 

Usage (11) 

Offset in STATIC storage 

Code Byte (after Phase FQ) 
(See Code Byte description) 

P - the number of digit 
positions in field in numer- 
ic picture. 

Q - the number of digit 
positions after V character 
in numeric picture. Code 
X* 80* represents 0, X'7F' 
represents -1, and X'81' 
represents +1. 

W - apparent length of pic- 
ture. - length of picture 
following. (For a non- 
numeric picture the length 
is obtained in bytes 12-13.) 



14 onwards Picture. 



Byte 9 - Code Byte 



5 onwards Dictionary references 
bytes ) 



(2n 



Bit Number 


Description 


1 


string 

1 numeric 


2 


correct 

1 error 


3 


not sterling 

1 sterling 


4 


short 

1 long 


5 


Not used 


6 


decimal 

1 binary 



Appendix C: Internal Formats of Dictionary Entries 3 65 



fixed 

1 floating 

Not used 
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Dictionary Entry for Workspace Requirement Symbol Table Entry 



The format for a dictionary entry for 
workspace requirement is : 



Symbol table entries are made by Phase 



Byte Number 


Description 


1 


Code Byte X*C8* or X'CA' 


2-3 


Length = 8 


4-5 


Total workspace required 


6-8 


Offset 



If the code byte is C8 this is the 
temporary workspace used by pseudo-code 
(temporary type 1). 



Dictionary Entry for Parameter Lists 



Dictionary entries for parameter lists 
have the following format: 



Byte Number 


Description 


1 


Code Byte X'C5' 


2-3 


Length 


4-5 


STATIC chain 


6-8 


STATIC offset 


9-10 


Assembled length 



11 onwards Contains DCA* s 



Dictionary Entries for Dope Vector 
Skeletons 



Byte Number Description 

I Code Byte X'C6' 
2-3 Length 

4-5 STATIC chain 

6-8 Offset in STATIC 

9-10 Dictionary reference or 
DECLARE number 

II onwards Bit pattern of skeleton dope 

vector 

This entry is constructed by Phase PD 



PL. 

Byte Number 

1 

2-3 

4-5 

6-8 

9-11 



12-13 



15-16 



17-18 



Description 

Code Byte X'C7' 

Length 

STATIC chain 

Offset in STATIC of DED 

Actual DED if not pictured. 
If a picture is involved., 
the last two bytes are the 
dictionary reference of the 
picture table entry 

Offset in STATIC storage of 
symbol table entry 

Dictionary reference of next 
item in the symbol table for 
this block 

Dictionary reference of item 
requiring entry in symbol 
table 



Dictionary Entry for AUTOMATIC Chain 
Delimiter 



An entry for AUTOMATIC chain delimiter 
is made by Phase PP. 



Byte Number 


Description 


1 


Code Byte X'CC' 


2-3 


Length 


4-5 


AUTOMATIC chain 


6-7 


Pointer to first second file 




entry 



8-9 



Pointer to second second 
file entry 



DED Dictionary Entry 

An entry for a DED is created by Phase 

PL. 

Byte Number Description 

1 Code Byte X'C7' 
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• First Level Table (8 to FF) 






|TO 

L_ 


|LINE 

. X 


-X — — 


j HYBRID 
IQUAL 
_X - - . 


_X - - 


|SN 

x 


_x 




| FL DEC IMAG | 
_j _j 


1 


r — - T 
I ALLOCATE | 


T 

I CALL 


T 

I ENTRY 


T 
_± 


I ASSIGN BY 
| NAME 
_x 


1 
_x . 




T 1 
|FL DEC REAL | 




L . 


._X _ _ . 


_x _ 


_X - — 


_x J 


2 


r — 

JBY 

L 


T 
J. 


t 


T 

X_ «. _ 


T 

_X _ . 


— f- — — 

JSL 

X - - - 


T 

_X 




| FL BIN IMAG | 

_x , J 


|3 


r — 

1 FREE 
i 


T 

. J. 


i RETURN 

_x — — —— — 


IPROC 


T — 
_X- - — 


T 

|SL« 

X _. 


T 

| ON PROC 
_x 


| FL EIN REAL | 




"■+ - 


_x J 


4 
5 


r — 

JWHILE 

1- 

1 : 

JSNAP 
f 

L _ _ - 


-+ 

IDISPLA 


"t — — — 
JP 

-+ 

r|GOOB+ 

_X 

.X ,. 

IGO TO 
_X 


| CHECK 
- + 

I BEGIN 


"+ — 

_X 

-+ — 

I WRITE 


|CN 

_X 

| GET 
-X _ 

|CL 
_X __ 

j PUT 


-+— - 

_X 

_X 

I END 
_x 


DO 


| FIX DEC IMAG | 

_ + ^ 

j FIX DEC REAL j 


6 

7 


-+ 

|COL 

-+ 

I SIGNAL 


_X 

_X 

IITDO 


j FIX BIN IMAG | 

-+ — -f 

| FIX EIN REAL j 




i 


-X - - 


_x 


_x_ i 


8 


r 

| SYSTEM 

L _ 


t 

|E 

i 


t — 

_x 


T 

|NO 

| CHECK 

X- — - 


| 2nd LEVEL | 

| MARKER | 

_x _ X 


T 

| END 
_x_ 


ITDO 


T T 

| INTEGER | 
_x _ J 


9 


IWAIT 


T — 

| REVERT 


T 

_X 


T 

JDO 
_i 


I READ 


I UNLOCK 


I END 
-X - - 




|STG DEC REAL | 




L _ 


X — 


X 


x 


_x _ _J 


A 


r 

|THEN 

L _ 


T 

|F 
_j 


t 

_J 


| DATA | 
|LIST DO| 

_X- ^-L 


T 
_J 


T 
_j 




T 1 
_X J 


B 


r 

I DELAY 


t — 
X __ 


T 

I INIT LABE 


1 — 

LJIF 
-X 


I LOCATE 


I REWRITE 


| END 
_X- 


PROG 


T 1 

j ON j 




j. 


_X — — — 


_x . 


_x 


_X J 


C 

D 


|CONTROI 
|VARIABI 
|. 

|EXIT 
j. 

1 

ISTOP 


t — 

1 1 

,E| 

-+ 

INULL 


t 

+ 

I DECLARE 


T 

|SN2 

-+ 

I ELSE 


T — 
_X 

I DELETE 


T 
_ + 

I OPEN 


T 

_X 

j END 
_X 

_X 

_x _ . 


BLOC] 


| ARRAY | 

| CROSS SECTION | 

_x ^ 

K | CHAR CONSTANT! 


|E 

F 


_X 

jc 

_X 

1 ASSIGN 


-+ 

1 X 

-+ 


-X 

| NO SNA] 

-+— 

I FORMAT 


_x __ 

_X 

_J 


-+ 

-+ 

I CLOSE 


_x < 

|ISUE | 
_X .J 

| BIT CONSTANT | 






_.l 


X - 


_X J 




+ 


GO Out Of Block 
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• Second Level Table (00 to 7F) (preceded by second level marker byte C8) 



—H 



r T T T T T T T 

| | FILE | | J DECIMAL | OPTIONS | EXTERNAL |AREA 

|. + + + + — X + x 

t III | BINARY | IRREDUCIBLE | INTERNAL j POINTER 
|. + X + + + x + 

| | LI ST | | | FLOAT | REDUCIBLE | AUTOMATIC | EVENT 

|. T + + + + + + + 

| JEDIT | EVENT 1 | j FIXED j RECURSIVE j STATIC |TASK 

|TITLE j DATA | PRIORITY j | REAL | ABNORMAL | CONTROLLED j CELL 

j ATTRIBUTES | STRING | REPLY | | COMPLEX j NORMAL j SECONDARY | BASED 

JPAGESIZE j SKI j j | PRECISION 1 JUSES j JOFFSET 

JIDENT | LINE j | | PRECISION 2 j SETS j | 

JLINESIZE j PAGE j | (VARYING | ENTRY JINITVAR 1 | 

| + X + x + x + 

j | COPY j j | PICTURE (NUM) | GENERIC j INITIAL | INITVAR 2 
h _ X_- + + X + + + 

JINTO JKEYTO | | | BIT ATTRIBUTE |BUILTIN |LIKE | 

j. + X + X_ + _ + + 

j FROM JTASKOP j | | CHAR ATTRIBUTE | j DEFINED j 

j SET | j IN j j DIMS (INTEGERS) | | ALIGNED | 

|. + + + + + + + 

| KEY | | | | LABEL | | UNALIGNED j 

JNOLOCK JKEYFROM j j / | | j UNALIGNED | 

^ + + + + + + + 

| | FORMAT | | | DIMS | | | PICTURE 

| IGNORE | LIS I | BY NAME | (NON- INTEGER) | RETURNS | POS | (CHAR) 

L ± X X X X X X_ 



^■The EVENT built-in function 
and pseudo-variable are 
known externally by the 
equivalent name COMPLETION. 
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Table 3. Communications Region. Bit Usage in Z FLAGS 











| BYTE | 


OFFSET j 


BIT 


| BIT NAME 


DESCRIPTION | 


| NAME | 




(HEX) 




3its are set on, on encountering:- | 


L _ J._ 


x_ 




L _ 


L _ _ _ J 


r T 


T 




1 


r 1 


| ZFLAG1 j 


ZCOMM+16 j 


80 


| ZDEFFL 


DEFINED attribute j 


1 1 




40 


ZAWAFL 


ALLOCATE statement j 


1 1 




20 


j ZSECFL 


Second File statement | 


1 1 




10 


ZDIMFL 


Dimension attribute j 


I 1 




08 


| ZCHKFL 


CHECK/NOCHECK prefix j 


1 1 




04 


ZONFL 


ON, SIGNAL or REVERT statement j 


1 1 




02 


ZSTRFL 


Structure j 


1 1 
i i 




01 


ZDECFL 


DECLARE statement | 


1 1 
| Z FLAG 2 | 


+ 17 | 


80 


ZLIKFL 


LIKE attribute j 


1 1 




40 


ZINTST 


STATIC INITIAL j 


1 1 




20 


ZOPCFL 


OPEN/CLOSE statement j 


1 1 




10 


ZGTPFL 


GET/PUT statement | 


1 1 




08 


ZGOTFL 


GO TO statement | 


1 1 




OH 


ZTEPFL 


TASK/EVENT/PRIORITY options, REPLY statement | 


1 1 




02 


ZPICFL 


PICTURE attribute/format item | 


1 1 




01 


ZISBFL 


iSUB defining | 


1 1 
j ZFLAG3 | 


+ 18 | 


80 


ZCONTG 


UNALIGNED (NONSTRING) attribute | 


! 1 




HO 


ZSETFL 


SETS attribute J 


! 1 




20 


ZOSSFL 


DELAY, DISPLAY, WAIT statement | 


1 1 




10 


ZARGFL 


Argument list j 


1 1 




08 


ZINLFL 


INITIAL Label | 


! 1 




04 


ZDIOFL 


DATA directed I/O | 


1 1 




02 


ZRECIO 


RECORD I/O j 


1 1 
i i 




01 


ZINTAC 


AUTO/CTL initialization j 


1 1 

j ZFLAG4 | 


+ 19 | 


80 


ZFREE 


FREE statement | 


1 1 




40 


STM256 


More than 256 statements j 


1 1 




20 


FILEFL 


Files present j 


1 1 




10 




SPARE | 


1 1 




08 


ZPUTFL 


PUT DATA | 


1 1 




04 


ZGETFL 


GET DATA | 


1 1 




02 


ZPTRFL 


Pointer Qualifier | 


1 1 
i i 




01 


ZRODFL 


STATIC DSA Entry | 


1 1 
j ZFLAG5 | 

1 1 


+ 20 | 


80 


ZFTASK 


TASK/EVENT/PRIORITY option on a CALL | 
statement j 


1 1 




40 


ZDENFL 


Set by FT | 


1 1 




20 


ALCSLM 


ALLOCATE, with second level marker j 


1 1 




10 




Spare | 


1 1 




to 






1 1 




01 







L_. 



._J 
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APPENDIX G: SYSTEM GENERATION 



For full details of the system genera- 
tion process, see IBM System/360 Operating 
System: System Generation , Form C28-6554. 

During the system generation process, a 
control section named IEMAF is assembled 
(see Figure 13) containing a table consist- 
ing of five fixed- point values aligned on 
full-word boundaries, immediately followed 
by a bit string field that is twelve bytes 
in length. The five fixed-point values are 
related to the compiler options LINECNT, 
SIZE, SORMGIN (start), SORMGIN (end), and 
CONTROL COLUMN (PAGECTL), respectively. 
Bits 1 to 39, and 4 3 to 46 in the string 
are used to specify the default status of 
the options. Bits 4 7 to 91 in the string 
are used to specify if an option keyword is 
to be deleted or not. A "1" in the bit 
string means "yes" and a "0" means "no" . 
The remaining bits in the string are spare 
bits not currently in use. Figure 14 shows 
the bit identification table associated 
with the control section. 



IEMAF 



START 
DC F'60* 
DC F' 99999* 
DC F*2* 
DC F'72' 



DC F'O* 
r 



DC B* 
DC B* 
DC B* 
DC B' 
DC B* 
DC B' 



^ 

00000000 00000000* 



00000000 00000000* 



DEFAULT 
SWITCHES 



r ^ 



00000000 ooooooi 00' 

I. J 

00000000 00000000* 

00000000 00000000* I 

r J 

00000000 000J00 000" 



DELETE 
SWITCHES 
SPARE 
SWITCHES 



L l ; 



L_. 



Figure 13. The IEMAF Control Section 
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ST 


4,84(13) 




ST 


2,80(13) 




ST 


2,8(13) 




MVI 


76(13), X' 00' 




ST 


2,96(13) 




BR 


14 




L 


15,32(11) 




BR 


15 


* 


END 


SUBROUTINE 


* 


EPILOGUE SUBROUTINE 




TM 


1(13) ,X'80* 




BC 


8,60(15) 




L 


2,80(13) 




LTR 


2,2 




BC 


7,60(15) 




C 


13,PR..IHEQSLA(12) 




BC 


7,60(15) 




L 


13,4(13) 




ST 


13,PR..IHEQSLA(12) 




TM 


0(13) f X , 80' 




BC 


1,50(15) 




L 


13,4(13) 




B 


34(15) 




ST 


2,8(13) 




LM 


14,11,12(13) 




BR 


14 



L 

BR 



15, A. 
15 



IHESAFA 



END SUBROUTINE 



STATIC PROLOGUE SUBROUTINE 



L 


4,PR..IHEQINV(12) 


LTR 


4,4 


BC 


11,86(15) 


L 


7, PR. . IHEQLWO(12) 


MVC 


80(4, 3), 80(7) 


LA 


4,1(4) 


ST 


4, PR. .IHEQINV(12) 


ST 


4,84(3) 


MVI 


76(3) ,X'00' 


ST 


3,8(13) 


LR 


13,3 


L 


3,PR..IHECjSLA(12) 


ST 


3,4(13) 


ST 


13, PR. .IHEQSLA(12) 


SR 


2,2 


ST 


2,80(13) 


ST 


2,8(13) 


ST 


2,96(13) 


BR 


14 



END SUBROUTINE 
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APPENDIX I: DIAGNOSTIC MESSAGES 



The messages produced by the PL/I (F) 
Compiler are explained in the publication 
IBM System/360 Operating System, PL/I (F) 
Programmer's Guide f Form C28-6594. The 
following table associates a message number 
with the particular phase and module in 
which the corresponding message is generat- 
ed. 



Message 
N umbe r 

IEM0001I 
IEM0002I 
IEM0003I 
IEM0004I 
IEM0005I 
IEM0006I 
IEM0007I 
IEM0008I 
IEM0009I 
IEM0010I 
IEM0011I 
IEM0012I 
IEM0013I 
IEM0014I 
IEM0015I 
IEM0016I 
IEM0017I 
IEM0018I 
IEM0019I 
IEM0020I 
IEM0021I 
IEM0022I 
IEM0023I 
IEM0024I 
IEM0025I 
IEM0026I 
IEM0027I 
IEM0028I 
IEM0029I 
IEM0031I 
IEM0032I 
IEM0033I 
IEM0035I 
IEM00 37I 
IEM0038I 
IEM0039I 
IEM0040I 
IEM0043I 
IEM0044I 
IEM0045I 
IEM0046I 
IEM0048I 

I IEM0049I 
IEM0050I 
IEM0051I 
IEM0052I 
IEM0053I 
IEM0054I 
IEM0055I 

| IEM0056I 



Logical Phase 

Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 



Module 

CA 

CA 

CA,CP 

CA 

CA f CL 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CG 

CA 

CA,CL,CT 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CG 

CI 

CL,CP 

CL f CP 

CO 

CO 

CO 

CP 

CT 



IEM0057I 
IEM0058I 
IEM0059I 
IEM0060I 
IEM0061I 
IEM0062I 
IEM0063I 
IEM0064I 
IEM0066I 
IEM0067I 
IEM0069I 
IEM007 0I 
IEM0071I 
IEM0072I 
IEM007 4I 
IEM0075I 
IEM0076I 
IEM0077I 
IEM007 8I 
IEM0080I 
IEM0081I 
IEM008 2I 
IEM0083I 
IEM0084I 
IEM0085I 
IEM0090I 
IEM0094I 
IEM0095I 
IEM0096I 
IEM0097I 
IEM0099I 
IEM0100I 
IEM0101I 
IEM0102I 
IEM0103I 
IEM0104I 
IEM0105I 
IEM0106I 
IEM0107I 
IEM0108I 
IEM0109I 
IEM0110I 
IEM0111I 
IEM0112I 
IEM0113I 
IEM0114I 
IEM0115I 
IEM0116I 
IEM0118I 
IEM0128I 
IEM0129I 
IEM0130I 
IEM0131I 
IEM0132I 
IEM0133I 
IEM0134I 
IEM0135I 
IEM0136I 
IEM0138I 
IEM0139I 
IEM0141I 
IEM0142I 



Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 



CC 

CC 

CP 

CP 

CP 

CP 

CO 

CC 

CG 

CL 

CG 

CG 

CG 

CG 

CG 

CG 

CG 

CG 

CG 

CG 

CG 

CG 

CG 

CG 

CI 

CI 

CI 

CI 

CG,CI 

CI 

CI 

CI 

CM 

CI 

CI 

CC 

CC,CG 

CI,CV 

CI 

CI 

CG,CI 

CI 

CI 

CI 

CG,CM 

CI 

CL 

CI 

CL 

CO 

CL 

CL 

CO 

CO 

CO 

CP 

CP 

CO 

CP 

CP 

CP 

CO 
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IEM0143I Read In CO 

IEMQ144I Read In CO 

IEM0145I Read In CO 
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IEM0798I 
IEM0799I 
IEM0800I 
IEM0801I 
IEM0802I 
IEM0803I 
IEM080UI 
IEM0805I 
IEM0806I 
IEM0 807I 
IEM0816I 
IEM0817I 
IEM0818I 
IEM0819I 
IEM0820I 
IEM0821I 
IEM0823I 
IEM0824I 
IEM0825I 
IEM0826I 
IEM0832I 
IEM0833I 
IEM0834I 
IEM0835I 
IEM0836I 
IEM0837I 
IEM0848I 
IEM0849I 
IEM0850I 
IEM0 851I 
IEM0852I 
IEM0853I 
IEM0864I 
IEM0865I 
IEM0866I 
IEM0867I 
IEM0868I 
IEM0869I 
IEM0870I 
IEM0871I 
IEM0872I 
IEM0873I 
IEM0874I 
IEM0875I 
IEM0876I 
IEM0877I 
IEM0878I 
IEM0879I 
IEM0880I 
IEM0881I 
IEM0882I 
IEM0896I 
IEM0897I 
IEM0898I 
IEM0899I 
IEM0900I 
IEM0901I 
IEM0902I 
IEM0903I 
IEM0906I 
IEM0907I 
IEM1024I 
IEM1025I 
IEM1026I 
IEM1027I 
IEM1028I 
IEM1029I 
IEM1040I 



Pretranslator 


GP, GQ f GR 


IEM1051I 


Translator 


IM 


Pretranslator 


GP,GQ,GR 


IEM1056I 


Translator 


IM 


Pretranslator 


GP, GQ,GR 


IEM1057I 


Translator 


IM 


Pretranslator 


GP,GQ,GR 


IEM1058I 


Translator 


IM 


Pretranslator 


GP f GQ f GR 


IEM1059I 


Translator 


IM 


Pretranslator 


GP f GQ f GR 


IEM106 0I 


Translator 


IM 


Pretranslator 


GP,GQ,GR 


IEM1061I 


Translator 


IM 


Pret rans latoi 


GP f GQ f GR 


IEM106 2I 


Translator 


IM 


Pretranslator 


GP,GQ,GR 


IEM106 3I 


Translator 


IM 


Pret rans lator 


GP f GQ f GR 


IEM1064I 


Translator 


IM 


Pretranslator 


GU,GV 


IEM1065I 


Translator 


IM 


Pret rans lator 


GU,GV 


IEM1066I 


Translator 


IM 


Pretranslator 


GU,GV 


IEM1067I 


Translator 


IM 


Pret rans lator 


GU,GV 


IEM106 8I 


Translator 


.IM 


Pret rans lator 


GU,GV 


IEM1071I 


Translator 


IM 


Pretranslator 


GU,GV 


IEM107 2I 


Translator 


IM 


Pretranslator 


GU, GV 


IEM107 3I 


Translator 


IM 


Pretranslator 


GU 


IEM1074I 


Translator 


IM 


Pret rans lator 


GU, GV 


IEM1076I 


Translator 


JD 


Pretranslator 


GU,GV 


IEM1082I 


Translator 


IX 


Pretranslator 


HF, HG 


IEM1088I 


Aggregates 


JK 


Pretranslator 


HF,HG 


IEM108 9I 


Aggregates 


JK 


Pretranslator 


HF r HG 


IEM1090I 


Aggregates 


JK 


Pretranslator 


HF, HG 


IEM1091I 


Aggregate Preprocessor 


JI 


Pretranslator 


HF,HG 


IEM1092I 


Aggregates 


JK 


Pretranslator 


HF, HG 


IEM1104I 


Aggregates 


JP 


Pretranslator 


HF,HG 


IEM1105I 


Aggregates 


JP 


Pret rans lator 


HP, HG 


IEM1106I 


Aggregates 


JP 


Pretranslator 


HF,HG 


IEM1107I 


Aggregates 


JP 


Pretrans lator 


HF r HG 


IEM1108I 


Aggregates 


JP 


Pretranslator 


HF,HG 


IEM1110I 


Aggregates 


JP 


Pretranslator 


HF, HG 


IEM1111I 


Aggregates 


JP 


Pretranslator 


HK,HL 


IEM1112I 


Aggregates 


JP 


Pretranslator 


HK,HL 


IEM1113I 


Aggregates 


JP 


Pretranslator 


HK, HL 


IEM1114I 


Aggregates 


JP 


Pretranslator 


HK,HL 


IEM1115I 


Aggregates 


JP 


Pretrans lator 


HK, HL 


IEM1120I 


Aggregates 


JP 


Pretranslator 


HK, HL 


IEM1121I 


Aggregates 


JP 


Pret rans lator 


HK,HL 


IEM1122I 


Aggregates 


JP 


Pretranslator 


HK,HL 


IEM1123I 


Pseudo-code 


LD 


Pret rans lator 


HK, HL 


IEM1125I 


Pseudo-code 


LD 


Pretranslator 


HK,HL 


IEM1200I 


Pseudo-code 


LA 


Pretranslator 


HK, HL 


I EMI 56 9 1 


Pseudo-code 


LG-ON 


Pretranslator 


HK,HL 


I EMI 57 01 


Pseudo-code 


LG 


Pretranslator 


HK,HL 


IEM1571I 


Pseudo-code 


LG 


Pretranslator 


HK, HL 


IEM157 2I 


Pseudo-code 


LG 


Pretranslator 


HK,HL 


IEM1574I 


Pseudo-code 


LG 


Pretranslator 


HK, HL 


IEM157 5I 


Pseudo-code 


LG 


Pretranslator 


HK f HL 


IEM1600I 


Pseudo-code 


LS,LT,LU 


Pret rans lator 


HK, HL 


IEM1601I 


Pseudo-code 


LS 


Pretranslator 


HK 


IEM1602I 


Pseudo-code 


LS,LT, LU 


Pretranslator 


HP 


IEM160 3I 


Pseudo-code 


LS,LT, LU 


Pretranslator 


HP 


IEM1604I 


Pseudo-code 


LS,LT,LU 


Pretranslator 


HP 


IEM1605I 


Pseudo-code 


LS,LT, LU 


Pretranslator 


HP 


IEM1606I 


Pseudo-code 


LS,LT,LU 


Pretranslator 


HP 


IEM1607I 


Pseudo-code 


LS,LT,LU 


Pretrans lator 


HP 


IEM1608I 


Pseudo-code 


LS , LT, LU 


Pretranslator 


HP 


IEM1609I 


Pseudo-code 


LS , LT, LU 


Pretranslator 


HP 


IEM1610I 


Pseudo-code 


LW 


Pretranslator 


HP 


IEM1611I 


Pseudo-code 


LW 


Pretrans lator 


HP 


IEM1612I 


Pseudo-code 


LW 


Translator 


IA 


IEM1613I 


Pseudo-code 


LS,LT,LU 


Translator 


IA 


IEM1614I 


Pseudo-code 


LW 


Translator 


IA 


IEM16151 


Pseudo-code 


ME 


Translator 


IA 


IEM1616I 


Pseudo-code 


ME 


Translator 


IA 


IEM1617I 


Pseudo-code 


MB 


Translator 


IA 


IEM1618I 


Pseudo-code 


MB 


Translator 


IM 


IEM1619I 


Pseudo-code 


MB 
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IEM1620I 
IEM1621I 
IEM1622I 
IEM1623I 
IEM1624I 
IEM1625I 
IEM1626I 
IEM1627I 
IEM1628I 
IEM1629I 
IEM1630I 
IEM1631I 
IEM1632I 
IEM1633I 
IEM1634I 
IEM1635I 
IEM1636I 
IEM1637I 
IEM16 38I 
IEM1639I 
IEM1640I 
IEM16 41I 
IEM1642I 
IEM1643I 
IEM1644I 
IEM1645I 
IEM1648I 
IEM1649I 
IEM16 50I 
IEM1651I 
IEM1652I 
IEM16 53.I 
IEM1654I 
IEM1655I 
IEM1656I 
IEM1657I 
IEM1670I 
IEM1671I 
IEM1680I 
IEM1687I 
IEM1688I 
IEM1689I 
IEM1691I 
IEM1692I 
IEM1693I 
IEM1750I 
IEM1751I 
IEM1752I 
IEM1753I 
IEM1754I 
IEM1790I 
IEM1793I 
IEM1794I 
IEM1795I 
IEM1796I 
IEM1797I 
IEM1800I 
IEM1801I 
IEM1802I 
IEM1803I 
IEM1804I 
IEM1805I 
IEM1806I 
IEM1807I 
IEM1808I 
IEM1809I 
IEM1810I 
IEM1811I 



Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 



MB 

MB 

MB, ME 

MB 

MB 

MB 

ME 

ME 

ME 

ME 

MG,MH 

MI, MJ 

MI f MJ 

ME 

ME 

ME 

ME 

ME 

ME 

MF 

MM,MN 

MM,MN 

MM, MM 

MM, MN 

MM,MN 

MM,MN 

MM,MN 

MM,MN 

MM,MN 

MM, MN 

MM,MN 

MM,MN 

MM,MN 

MN 

ME 

MM 

MP 

MP 

MS 

MS 

MS 

MS 

MS 

MS 

MS 

MS 

MS 

NA 

NA 

NA 

OG,OM 

OE 

OE 

OE 

OE 

OE 

OS 

OS 

OS 

OS 

OS 

OS 

OS 

OS 

OS 

OS 

OS 

OS 



IEM1812I Pseudo-code OS 

IEM1813I Pseudo-code OS 

IEM1814I Pseudo-code OS 

IEM1815I Pseudo-code OS 

IEM1816I Pseudo-code NJ 

IEM1817I Pseudo-code NJ 

IEM1818I Pseudo-code NJ 

IEM1819I Pseudo-code NJ 

IEM18 20I Pseudo-code NJ 

I EMI 8 21 I Pseudo-code NJ 

IEM1822I Pseudo-code NJ 

IEM182 3I Pseudo-code NJ 

IEM1824I Pseudo-code NM 

IEM1825I Pseudo-code NG 

IEM182 6I Pseudo-code NG 

I EMI 8 27 1 Pseudo-code NG 

IEM1828I Pseudo-code NG 

IEM1829I Pseudo-code NG 

IEM1830I Pseudo-code NG 

IEM18 32I Pseudo-code NM 

IEM1833I Pseudo-code NM 

IEM18 34I Pseudo-code NM 

IEM18 35I Pseudo-code NM 

IEM18 36I Pseudo-code NM 

IEM1837I Pseudo-code NM 

IEM1838I Pseudo-code NM 

IEM18 39I Pseudo-code NM 

IEM1840I Pseudo-code NM 

IEM18 41I Pseudo-code NM 

IEM1843I Pseudo-code NM 

IEM18 44I Pseudo-code NM 

IEM18 45I Pseudo-code NM 

IEM1846I Pseudo-code NM 

I EMI 8 47 I Pseudo-code NM 

IEM1848I Pseudo-code NM 

IEM1849I Constant Conversions OS 

IEM1850I Constant Conversions OS 

I EMI 86 01 Pseudo-code NU 

IEM1861I Pseudo-code NU 

IEM186 2I Pseudo-code NU 

I EMI 87 01 Pseudo-code NU 

IEM1871I Pseudo-code NU 

IEM187 2I Pseudo-code NU 

IEM187 3I Pseudo-code NU 

IEM187 4I Pseudo-code NU 

IEM1875I Pseudo-code NV 

IEM2304I Storage Allocation PD 

IEM2 305I Storage Allocation PD 

IEM2352I Storage Allocation PD 

|IEM2560I Storage Allocation QU 

IEM2700I Register Allocation RF,RG,RH 

IEM2701I Register Allocation RF,RG, RH 

IEM2702I Register Allocation RF,RG,RH 

IEM2703I Register Allocation RF,RG,RH 

IEM2704I Register Allocation RF,RG,RH 

IEM2705I Register Allocation RF,RG # RH 

IEM270 6I Register Allocation RF,RG,RH 

IEM2707I Register Allocation RF,RG,RH 

IEM2708I Register Allocation RF,RG,RH 

IEM2709I Register Allocation RF,RG,RH 

IEM2710I Register Allocation RF,RG,RH 

IEM2711I Register Allocation RF,RG,RH 

IEM2712I Register Allocation RF,RG, RH 

IEM2817I DCB Generation GA 

IEM2818I DCB Generation GA 

IEM2819I DCB Generation GA 

IEM2820I DCB Generation GA 

IEM2821I DCB Generation GA 
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IEM2822I 


DCB Generation 


GA 


IEM3851I 


IEM2823I 


DCB Generation 


GA 


IEM3852I 


IEM2824I 


DCB Generation 


GA 


IEM3853I 


IEM2825I 


DCB Generation 


GA 


IEM3855I 


IEM2826I 


DCB Generation 


GA 


IEM3856I 


IEM2827I 


DCB Generation 


GA 


IEM3857I 


IEM2828I 


DCB Generation 


GA 


IEM3858I 


IEM2829I 


DCB Generation 


GA 


IEM3859I 


IEM2833I 


Final 


Assembly 


TF 


IEM3860I 


IEM2834I 


Final 


Assembly 


TF 


IEM3861I 


IEM2835I 


Final 


Assembly 


TF 


IEM3862I 


IEM2836I 


Final 


Assembly 


TF 


IEM386 3I 


IEM2837I 


Final 


Assembly 


TF 


IEM3864I 


IEM2849I 


Final 


Assembly 


TJ 


IEM3865I 


IEM2852I 


Final 


Assembly 


TJ 


IEM3872I 


IEM2853I 


Final 


Assembly 


TJ 


IEM3873I 


IEM2854I 


Final 


Assembly 


TJ 


IEM3874I 


IEM2855I 


Final 


Assembly 


TJ 


IEM3875I 


IEM2865I 


Final 


Assembly 


TO 


IEM3876I 


IEM2866I 


Final 


Assembly 


TO 


IEM3877I 


IEM2867I 


Final 


Assembly 


TO 


IEM3878I 


IEM2868I 


Final 


Assembly 


TO 


IEM3880I 


IEM2881I 


Final 


Assembly 


TT 


IEM3887I 


IEM2882I 


Final 


Assembly 


TT 


IEM3888I 


IEM2883I 


Final 


Assembly 


TT 


IEM3889I 


IEM2884I 


Final 


Assembly 


TT 


IEM3890I 


IEM2885I 


Final 


Assembly 


TT 


IEM3891I 


IEM2886I 


Final 


Assembly 


TT 


IEM3892I 


IEM2887I 


Final 


Assembly 


TT 


IEM3893I 


IEM2888I 


Final 


Assembly 


TT 


IEM3894I 


IEM2897I 


Final 


Assembly 


UA 


IEM3895I 


IEM2898I 


Final 


Assembly 


UA 


IEM3896I 


IEM2899I 


Final 


Assembly 


UC 


IEM3897I 


IEM2900I 


Final 


Assembly 


UC 


IEM3898I 


IEM2913I 


Final 


Assembly 


UF 


IEM3899I 


IEM3088I 


Dictionary, Declare 


EL 


IEM3900I 




Pass : 


2 




IEM3901I 


IEM3136I- 


Dictionary, Declare 


EL 


IEM3902I 


31491 


Pass : 


2 




IEM3902I 


IEM3151I 


Dictionary, Declare 


EL 


IEM3903I 




Pass : 


2 




IEM3904I 


IEM3153I 


Dictionary, Declare 


EL 


IEM3905I 




Pass : 


2 




IEM3906I 


IEM3154I 


Dictionary, Declare 


EL 


IEM3907I 




Pass 


2 




IEM3908I 


IEM3156I 


Dictionary, Declare 


EL 


IEM3909I 




Pass 


2 




IEM3910I 


IEM3162I 


Dictionary, Declare 


EL 


IEM3911I 




Pass : 


2 




IEM3912I 


IEM3167I- 


Dictionary, Declare 


EL 


IEM4106I 


31731 


Pass 


2 




IEM4109I 


IEM3176I- 


Dictionary, Declare 


EL 


IEM4112I 


31901 


Pass : 


2 




IEM4115I 


IEM3199I- 


Dictionary, Declare 


EL 


IEM4118I 


32131 


Pass : 


2 




IEM4121I 


IEM3584I 


48 Character 


BX 


IEM4124I 




Preprocessor 




IEM4130I 


IEM3840I 


Compiler Control 


AA 


IEM4133I 


IEM3841I 


Compi: 


ler Control 


AA 


IEM413 4I 


IEM3842I 


Compi: 


ler Control 


AA 


IEM4136I 


IEM3843I 


Compiler Control 


AA 


IEM4139I 


IEM3844I 


Compiler Control 


AA 


IEM4142I 


IEM3845I 


Compiler Control 


AA 


IEM414 3I 


IEM3846I 


Compi: 


ler Control 


AA 


IEM4148I 


IEM3847I 


Compiler Control 


AA 


IEM4150I 


IEM3848I 


Compi 


ler Control 


AA 


IEM4151I 


IEM3849I 


Compi 


ler Control 


AA 


IEM4152I 


IEM3850I 


Compi 


ler Control 


AA 


IEM4153I 



Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AL 

Compiler Control AB 

Compiler Control AB 

Compiler Control AB 

Compiler Control AB 

Compiler Control AB 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AL 

Compiler Control AB 

Compiler Control AB 

Compiler Control AB 

Compile-time Processor AS 

Compile-time Processor AS 

Compile-time Processor AS 

Compile-time Processor AS 

Compile-time Processor AS 

Compile-time Processor AS,BC,BG 

Compile-time Processor BC,BG 

Compile-time Processor BG 

Compile-time Processor BC 

Compile-time Processor BC 

Compile-time Processor BC 

Compile-time Processor BC 

Compile-time Processor BC 

Compile-time Processor BC 

Compile-time Processor BC 

Compile-time Processor BC 

Compile-time Processor BC 

Compile-time Processor BC 

Compile-time Processor BC 
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IEM4154I 


Corapile- 


-tiroe 


Processor 


BC 


IEM4346I 


Compile -time 


Processor 


BC 


IEM4157I 


Compile- 


-time 


Processor 


BC 


IEM4349I 


Compile-time 


Processor 


BC 


IEM4160I 


Compile- 


■time 


Processor 


BC 


IEM4352I 


Compile-time 


Processor 


BC 


IEM4163I 


Compile- 


-time 


Processor 


BC 


IEM4355I 


Compile-time 


Processor 


BC 


IEM4166I 


Compile- 


-time 


Processor 


BC 


IEM4358I 


Compile-time 


Processor 


BC 


IEM4169I 


Compile- 


-time 


Processor 


BC 


IEM4361I 


Compile-time 


Prccessor 


BC 


IEM4172I 


Cornpi le- 


-time 


Processor 


BC 


IEM4364I 


Compile-time 


Processor 


BC 


IEM4175I 


Compile- 


-time 


Processor 


BC 


IEM4367I 


Compile-time 


Prccessor 


BC 


IEM4176I 


Compile- 


-time 


Processor 


BC 


IEM4 370I 


Compile-time 


Prccessor 


BC 


IEM4178I 


Compile- 


-time 


Processor 


BC 


IEM4373I 


Compile-time 


Prccessor 


BC 


IEM4184I 


Compile- 


-time 


Processor 


BC 


IEM4376I 


Compile-time 


Prccessor 


BC 


IEM4187I 


Compile- 


-time 


Processor 


BC 


IEM4379I 


Compile-time 


Prccessor 


BC 


IEM4188I 


Compile- 


-time 


Processor 


BC 


IEM4382I 


Compile-time 


Prccessor 


BC 


IEM4190I 


Compi le- 


-time 


Processor 


BC 


IEM4283I 


Compile-time 


Processor 


BC 


IEM4193I 


Compile- 


-time 


Processor 


BC 


IEM4391I 


Compile-time 


Prccessor 


BC 


IEM4196I 


Compile- 


-time 


Processor 


BC 


IEM4394I 


Compile-time 


Prccessor 


BC 


IEM4199I 


Compile- 


-time 


Processor 


BC 


IEM4397I 


Compile-time 


Processor 


BC 


IEM4202I 


Compile- 


-time 


Processor 


BC 


IEM4400I 


Compile-time 


Prccessor 


BC 


IEM4 205I 


Compile- 


-time 


Processor 


BC 


IEM4403I 


Compile-time 


Prccessor 


BC 


IEM4208I 


Compile- 


-time 


Processor 


BC 


IEM4406I 


Compile-time 


Prccessor 


BC 


I EMU 211 1 


Compile- 


-time 


Processor 


BC 


IEM4407I 


Compile-time 


Prccessor 


BC 


IEM4212I 


Compile- 


-time 


Proce ssor 


BC 


IEM4409I 


Compile-time 


Processor 


BC 


IEM4214I 


Compile- 


-time 


Processor 


BC 


IEM4412I 


Compile-time 


Processor 


BC 


IEM4 217I 


Compile- 


-time 


Processor 


BC 


IEM4415I 


Compile-time 


Prccessor 


BC 


IEM4220I 


Compile- 


-time 


Processor 


BC 


IEM4421I 


Compile-time 


Processor 


BC 


IEM4223I 


Compile- 


-time 


Processor 


BC 


IEM4433I 


Compile-time 


Prccessor 


BG 


IEM4226I 


Compile- 


-time 


Processor 


BC 


IEM4436I 


Compile-time 


Prccessor 


BG 


IEM4 229I 


Compile- 


-time 


Processor 


BC 


IEM4439I 


Compile-time 


Processor 


BG 


IEM4232I 


Compile- 


-time 


Processor 


BC 


IEM4448I 


Compile-time 


Prccessor 


BG 


IEM4235I 


Compile- 


-time 


Processor 


BC 


IEM4451I 


Compile-time 


Prccessor 


BG 


IEM4238I 


Compile- 


-time 


Processor 


BC 


IEM4452I 


Compile-time 


Processor 


BG 


IEM4 241I 


Compile- 


-time 


Processor 


BC 


IEM4454I 


Compile-time 


Prccessor 


BG 


IEM4244I 


Compile- 


-time 


Processor 


BC 


IEM4457I 


Compile-time 


Prccessor 


EG 


IEM4 247I 


Compi le- 


-time 


Processor 


BC 


IEM4460I 


Compile-time 


Prccessor 


BG 


IEM4248I 


Comp il e- 


-time 


Processor 


BC 


IEM4463I 


Compile-time 


Prccessor 


BG 


IEM4250I 


Compile- 


-time 


Processor 


BC 


IEM4469I 


Compile-time 


Prccessor 


BG 


IEM4 253I 


Compile- 


-time 


Processor 


BC 


IEM4472I 


Compile-time 


Processor 


BG 


IEM4254I 


Compile- 


-time 


Processor 


BC 


IEM4473I 


Compile-time 


Prccessor 


BG 


IEM4256I 


Compile- 


-time 


Processor 


BC 


IEM4475I 


Compilo-time 


Processor 


BG 


IEM4259I 


Compile- 


-time 


Processor 


BC 


IEM4478I 


Compile-time 


Prccessor 


BG 


IEM4262I 


Compile- 


-time 


Processor 


BC 


IEM4481I 


Compile-time 


Prccessor 


BG 


IEM4265I 


Compile- 


-time 


Processor 


BC 


IEM4484I 


Compile-time 


Prccessor 


BG 


IEM4 271I 


Compile- 


-time 


Processor 


BC 


IEM4499I 


Compile-time 


Prccessor 


BG 


IEM4277I 


Compile- 


-time 


Processor 


BC 


IEM4502I 


Compile-time 


Processor 


BG 


IEM4280I 


Compile- 


-time 


Processor 


BC 


IEM4504I 


Compile-time 


Processor 


BG 


IEM4283I 


Compile- 


-time 


Processor 


BC 


IEM4505I 


Compile-time 


Prccessor 


BG 


IEM4286I 


Compile- 


-time 


Processor 


BC 


IEM4506I 


Compile-time 


Prccessor 


BG 


IEM4289I 


Compile- 


-time 


Processor 


BC 


IEM4508I 


Compile-time 


Processor 


BG 


IEM4292I 


Compile- 


-time 


Processor 


BC 


IEM4511I 


Compile-time 


Prccessor 


BC 


IEM4295I 


Compile- 


-time 


Processor 


BC 


IEM4514I 


Compile-time 


Prccessor 


BG 


IEM4296I 


Compile- 


-time 


Processor 


BC 


IEM4517I 


Compile-time 


Prccessor 


BG 


IEM4 298I 


Compile- 


-time 


Processor 


BC 


IEM4520I 


Compile-time 


Prccessor 


BG 


IEM4299I 


Compile- 


-time 


Processor 


BC 


IEM4523I 


Compile-time 


Prccessor 


BG 


IEM4 3 01I 


Compile- 


-time 


Processor 


BC 


IEM4526I 


Compile-time 


Processor 


AS 


IEM4304I 


Compile- 


■time 


Processor 


BC 


IEM4529I 


Compile-time 


Prccessor 


BC BG 


IEM4307I 


Compile- 


-time 


Processor 


BC 


IEM4532I 


Compile-time 


Prccessor 


AS 


IEM4310I 


Compile- 


-time 


Processor 


BC 


IEM4535I 


Compile-time 


Processor 


AS 


IEM4313I 


Compile- 


-time 


Processor 


BC 


IEM4538I 


Compile-time 


Processor 


BC 


IEM4319I 


Compile- 


-time 


Processor 


BC 


IEM4547I 


Compile-time 


Processor 


AV 


IEM.4322I 


Compile- 


-time 


Processor 


BC 


IEM4550I 


Compile-time 


Prccessor 


BG 


IEM4325I 


Compi le- 


-time 


Processor 


BC 


IEM4553I 


Compile-time 


Prccessor 


BG 


IEM4328I 


Comp il e- 


-time 


Processor 


BC 


IEM4559I 


Compile-time 


Prccessor 


BG 


IEM4 3 31I 


Compile- 


-time 


Processor 
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Appendix I: Diagnostic Messages 428.1 



Any initial value statements associated 
with the ALLOCATE statement are extracted 
and placed in-line. The initialization 
statements are then skipped, and the scan 
continues . 

The last two steps are also performed 
for LOCATE (based variable) and ALLOCATE 
(based variable) statements. 

The action on encountering a BUY state- 
ment is similar to that for the ALLOCATE 
statement,, with the following exceptions: 



tion is stacked. It is not 
output text Until the 
encountered that loads regis 
the exit to the library rout 
case of EDIT-directed I/C 
the appropriate branch-a 
instruction is encountered, 
move character instruction i 
the output before the exit 
if the argument in question 
argument to the routine , 
return from the routine if i 
argument. 



inserted in the 
instruction is 
ter 15 prior to 
ine, or in the 
routines, until 
nd-link (BALR) 
The stacked 
s inserted into 

to the routine 
is an input 

and after the 
t is an output 



Bound and string length code is in- 
line „ bracketed between BUYS and BUY | Phase QX 
statements - there is therefore no 
look ahead 



2. There is no initial value 
associated with temporaries 



code 



3. A slot in the DSA is updated with the 
pointer to the allocated storage for a 
temporary 

The action on encountering a FREE state- 
ment is to generate code to load a paramet- 
er register with the pointer to the allo- 
cated storage for the FREE VDA Library call 
inserted by the pseudo-code. 



Phase QX is the 
printing phase. I 
ATR (attribute list 
It scans the STATI 
and COBOL chains, 
structure or non- 
found, an entry is 
length table. 



•AGGREGATE LENGTH TABLE' 
t is entered only if the 
) option is specified. 
C, AUTOMATIC, CONTROLLED 
and, for each major 
structured array that is 
printed in the AGGREGATE 



| Phase QU 



An AGGREGATE LENGTH TABLE entry consists 
of the source program DECLARE statement 
number, the identifier and the length (in 
bytes) of the aggregate. In the case of an 
aggregate with the CONTROLLED attribute, no 
entry is printed for the DECLARE statement, 
but an entry is printed for each ALLOCATE 
for the aggregate, the source program ALLO- 
CATE statement number being printed in the 
•statement number' column. 



Phase QU scans the pseudo-code text in 
search of instructions which have misal- 
igned operands. (A misaligned operand has 
the UNALIGNED attribute and is not aligned 
on the boundary appropriate to its data 
type). When such an instruction is found, 
QU inserts a move character (MVC) instruc- 
tion in the pseudo-code text to move the 
operand to or from an aligned workspace 
area, and substitutes the address of this 
workspace for the operand address in the 
original instruction. If the address of a 
misaligned operand is loaded into a reg- 
ister, a note is made of that register. QU 
thereafter treats the instructions which 
refer to it as if they referred to the 
operand itself, by inserting a move charac- 
ter instruction, and substituting the work- 
space address for the reference in the 
instruction. 

Phase QU uses storage beginning at off- 
set 3 2 from register 9 for its workspace. 

Whenever a load address (LA) instruction 
is found which lies within the calling 
sequence of a library routine and which 
loads the address of a misaligned argument 
of that routine, an aligned workspace 
address is substituted in the instruction, 
and the requisite move character instruc- 



Where the aggregate length is not known 
at compilation the word "adjustable" is 
printed in the 'length in bytes' column. 
In the case of a DEFINED aggregate, the 
word 'DEFINED', and not the aggregate 
length, appears in the 'length in bytes' 
column. 

Before printing begins the aggregate 
length table entries are sorted so that the 
identifiers appear in collating sequence 
order. 



THE REGISTER ALLOCATION LOGICAL PHASE 



The purpose of the Register Allocation 
Phase is to insert into the text the 
appropriate addressing mechanisms for all 
types of storage, and to allocate physical 
general registers where syirtclic registers 
are specified or required as base reg- 
isters. 

This phase comprises two physical phas- 
es, each with a specific function. The 
first. Phase RA, processes the addressing 
mechanisms, while the second phase. Phase 
RF, allocates the physical registers. 



Section 2 (Compiler Phases) : Register Allocation Logical Phase 
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